[utro35]

Здравствуйте.
В проекте несколько таймеров, которые занимаются последовательным прибавлением.
Два из них должны работать с вещественным типом чисел.
код первого:

Код:

procedure TMainForm.Timer15Timer(Sender: TObject);
begin
if par = (200) then
begin
Timer15.Enabled:= false;
exit;
end;
par:=par+0.1;
edit4.text:= floattostr(par);
end;
код второго 
procedure TMainForm.Timer5Timer(Sender: TObject);
begin
if partep=(200) then
begin
Timer5.Enabled:= false;
exit;
end;
partep:=partep+0.1;
edit10.text:= floattostr(partep);
end;

Админ: Пользуемся тегами для офрмления кода!

Первый работает, а вот второй выдает ошибку:

Project Project 1 .exe raised exception class EConvertError with message "0.1" Is not a valid integer value1. Process stopped. Use Step or Run to continue.