Berechnung d. Gewinnschwelle in einer Tabelle mit StringGrid

[TechnikerHC]

Hi Leute!
Dieses Programm soll ich als Hausaufgabe erstellen; ich bekomme es aber irgendwie nich ganz hin. I need help!
bis jetzt sieht es ungefähr so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
VAR
KF, KV, P, K, E, G: real;
St: integer;

begin
KF:=strtofloat(form1.edit1.text);
KV:=strtofloat(form1.edit2.text);
P:=strtofloat(form1.edit3.text);

St:=0;

repeat
  K:=KF+St*KV;           //Kosten=Festkosten+Sück*variable Kosten

  E:=St*P;              // Erlös=Stück*Preis

  G:=E-K;               // Gewinn=Erlös-Kosten
with form1.stringgrid1 Do
    begin
      cells[0,St+1]:= inttostr(St);
      cells[1,St+1]:= floattostr(K);
      cells[2,St+1]:= floattostr(E);
      cells[3,St+1]:= floattostr(G);
      St:=st+1;
      rowcount:=rowcount+1;
      end;
until E>K
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.stringgrid1.cells[0,0]:='Anzahl';
form1.stringgrid1.cells[1,0]:='Kosten';
form1.stringgrid1.cells[2,0]:='Erlös';
form1.stringgrid1.cells[3,0]:='Gewinn';
end;