procedure TForm1.Button1Click(Sender: TObject); var sakat:integer; begin sakat:=strtoint(edit1.Text ); if sakat<0 then label2.Caption :='sonuç= negatif' else label2.Caption :='sonuç= pozitif' end; end. nazım demir demirnazim@hotmail.com