edit position für stringgrid

[MondoShiva]

habs jetzt glaub ich gelöst durch einige komplikationen,
gibts dafür nicht noch einen kürzeren weg??

Delphi-Quellcode:

procedure TForm1.EditChange(Sender: TObject);
var
tmp:integer;
komma: Boolean;
begin

  if length(edit.text)>2 then
  begin
   x:='';
   y:='';
   tmp:= 0;
   komma:= false;
   while tmp< Length(edit.Text) do
   begin
     if not (copy(edit.Text,tmp+1,1)=',')then
       if komma then
         y:=y+copy(edit.Text,tmp+1,1)
       else
       x:=x+copy(edit.Text,tmp+1,1)
     else
      komma:= true;
     inc(tmp);
   end;
  end;


end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

if not (x= '') or (y= '') then
  begin
    if StringGrid.ColCount< strtoint(x) then
      StringGrid.ColCount := strtoint (x);
      if StringGrid.RowCount< strtoint (y) then
        StringGrid.RowCount := strtoint (y);
  end;
  StringGrid.Cells[strtoint(x),strtoint(y)]:= edit1.Text;
end;

nur meine probleme nehmen kein ende es sind mir nicht mehr die editfelder sondern soll es über das OnChange / OnChanging von dem pagecontroll gehen.
d.h. sobald ich den reiter wechsel soll er die eingaben von edit und edit1 auf den stringgrid reiter übernehmen
bin dankbar für eure hilfe!