[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);
repeat
R:=A+Q;
Q:=Q+1;

until Q>C ;
ListBox1.Items.Add(FloatToStr(A)+'+'+FloatToStr(Q) +'='+FloatToStr(R));
end;