Berechnung d. Gewinnschwelle in einer Tabelle mit StringGrid

[TechnikerHC]

hi leute!
ich soll mit dem programm jetzt noch den break-even-point(Erlös=Kosten) ausrechnen und in einem weiteren edit feld anzeigen(das hat eigentlich ganz gut geklappt...)
und dann soll nach der rechnung die tabelle genau zum feld des break evenpoints springen...ich glaube das geht irgendwie mit dem befehl row...naja an der stelle brauche ich hilfe!
cheers your technikerhc

ps. bis jetzt sieht es 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);


If P>KV
  then begin
  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;              // end von with do begin...
    until E>K;
      form1.StringGrid1.Row:=St;
      St:=Round(KF/(P-KV));
      form1.edit4.text:=inttostr(St);
End          // end von then begin
    else
      begin
      showmessage('Die variablen Kosten sind größer als der Preis');
      end;              // end der if schleife
end;

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