[angvelem]

Тебе видней. У меня этот код ошибки не вызывает:

Код:

var
  Par : Single = 0;
  Partep : Single = 0;

procedure TForm4.Timer1Timer(Sender: TObject);
begin
  if par = 200 then
  begin
    Timer2.Enabled:= false;
    Exit;
  end;
  par := par + 0.1;
  Edit2.Text := FloatToStr(par);
end;

procedure TForm4.Timer2Timer(Sender: TObject);
begin
  if partep = 200 then
  begin
    Timer1.Enabled := False;
    Exit;
  end;
  partep := partep + 0.1;
  Edit3.Text := FloatToStr(partep);
end;