Pozitif Negatif Kontrolü

[B]procedure TForm1.Button1Click(Sender: TObject); [/B][COLOR=Olive][B]var 
sakat:integer; 
begin 
sakat:=strtoint(edit1.Text ); 
if sakat<0 then label2.Caption :='sonuç= negatif' 
else 
label2.Caption :='sonuç= pozitif' 

end; 
 [/B][/COLOR][B]end.[/B]