[XaKeR282]

Код:

procedure TForm1.Action1Execute(Sender: TObject);
var
A:Real;
B:Real;
C:Real;
Q:Real;
R:Real;
begin
A:=StrToFloat(Edit1.Text);
B:=StrToFloat(Edit2.Text);
C:=StrToFloat(Edit3.Text);
for  Q:=B to C do  //Вот тут он мне ворчит
begin
R:=A+Q;
ListBox1.Items.Add(FloatToStr(A)+'+'+FloatToStr(Q)+'='+FloatToStr(R));
end;

end;

Админ: Предупреждение: теги и еще раз теги!