Warum erstellst du in der Neuen Zeile nicht direkt die Objekte ?
Delphi-Quellcode:
procedure TfrmArtNrEin.ErzeugeNeueZeile(Sender: TObject);
var
t : integer;
begin
with Sender as TStringgrid do begin
WertSpeichern;
NeueZeile := true; // besetzen von Col und Row ruft SelectCell auf !!
Col := 1; // das sgArtNr.Objects darf hier nicht verändert werden
RowCount := RowCount + 1;
Row := RowCount - 1;
for t := 0 to pred(rows.Count) do // Direkt für jede Zelle ein Objekt erstellen.
AddEditObjectToGrid(t, Row, true);
NeueZeile := false; // hier wieder SelectCell einschalten
end;
end;