Witam, do napisania mam pewien prosty program zaliczeniowy (niżej). Pod koniec występuje pewien problem, którego nie jestem w stanie rozwiązać.Przy pozycji edit3.text pojawia się błąd przy wyrazie godz.
procedure TForm1.Button1Click(Sender: TObject);
var
t1,t2:integer;
godz:real;
min:integer;
begin
try
t1:=strtoint(edit1.text);
t2:=strtoint(edit2.text);
min:=t1+t2;
godz:=t1*1/60 + t2*1/60;
edit4.text:=inttostr(min);
edit3.text:=formatfloat('#.##'godz);
except
showmessage('czasy muszą by z przedziału 0-59')
edit1.setfocus
end;
end;
end.