Wie zellsensitives Rechnen in StringGrid ?

[EccoBravo]

Nun aber neues Problem

Soweit so gut,
aber unter OnGetEditText wird im StringGrid erst nach zweimaligem Drücken der EnterTaste das richtige ergebnis ausgerechnet.
Nach einmaligem Enter kommt keinErg oder sinnloses Erg.

Zur Illustration hier mein Code

Delphi-Quellcode:

function StrToFloate(wert:String):single;
begin
    if wert ='' then result :=0
    else result := StrToFloat(wert);
end;

procedure TForm1.SG1GetEditText(Sender: TObject; ACol,
  ARow: Integer; var Value: String);
begin
  if (aRow=1) then
  begin
      SG1.Cells[ACol,3]:= FloatToStr(StrToFloate(SG1.Cells[ACol,1])+StrToFloate(SG1.Cells[ACol,2]));
  end;
  if aRow=2 then
  begin
      SG1.Cells[ACol,3]:= FloatToStr(StrToFloate(SG1.Cells[ACol,1])+StrToFloate(SG1.Cells[ACol,2]));
  end;
  if aRow=3 then
  begin
      SG1.Cells[ACol,1]:= FloatToStr(StrToFloate(SG1.Cells[ACol,2])+StrToFloate(SG1.Cells[ACol,3]));
  end;

Danke

E. B.