Работа со наредба за избор од две можности - IF

По поставување на еден Edit1, еден Button1  и една  Label1 се впишува следниот код  :

if edit1.Text<>'' then
    begin
        if (strtoint(edit1.Text)>=0) and (strtoint(edit1.Text)<12) then
            Label1.Caption:='Dobro Utro !!!';          
        if (strtoint(edit1.Text)>=12) and (strtoint(edit1.Text)<18) then
            Label1.Caption:='Dobar Den !!!';    
        if (strtoint(edit1.Text)>=18) and (strtoint(edit1.Text)<24) then
            Label1.Caption:='Dobro Vecer !!!';    
        if (strtoint(edit1.Text)<0) or (strtoint(edit1.Text)>24) then
            Label1.Caption:='Vnesovte nedozvolena vrednost !!!';      end
        else        
            Label1.Caption:='Prazna vrednost ne e dozvolena !!!';

end;