delphi+'' is not a valid floating point value

[prog1995]

[CODEprocedure TForm1.Button1Click(Sender: TObject);
var
h,m,s :word;
f:real;
begin
h:=StrToint(edit1.text);
m:=StrToint(edit2.text);
s:=StrToint(edit3.text);
if (h<=11) and (m<=59) and (s<=59) then
begin
f:=(((h/12)*3600+m*60+s)/12/3600*360);
edit4.Text:= FloatToStr(f);
end
else
begin
MessageDlg('vy nepravi',mterror, [mbok], 0);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
f,h,m:real;
begin
f:=StrToFloat(edit1.text);
if f<=360 then
begin
h:=int(f/30);
m:=(f-h*30)/0.5;
edit2.Text:=FloatToStr(h);
edit3.Text:=FloatToStr(m);
end
else
begin
Messagedlg(' vy nepravi', mterror, [mbok], 0);
end;
end;
end.][/CODE]
Как это исправить?

[ViktorR]

Только предположение (негде пробовать):

h:=int(f/30);
m:=(f-h*30)/0.5;
edit2.Text:=FloatToStr(h);
edit3.Text:=FloatToStr(m);

В одном месте h приводится к целому типу, а преобразование в строку делается так, будто это real-тип.

PS: Вот, нашел:
function FloatToStr(Value: Extended): string; overload;

function IntToStr(Value: Integer): string; overload;

Как-то так, ...

[type_Oleg]

Там же написано - '' ( пустое место ) - не является правильным числом с плавающей запятой
Значит, речь - об edit1.text . Скорее всего, там пусто при нажатии Button2

Лучше не так

f:=StrToFloat(edit1.text);

а так:

f:=StrToFloatDef(edit1.text,0);