Stringgrid, Zeile automatisch an Textgrösse anpassen

[Luckner]

Hallo DeddyH,
1 sg habe ich geändert.

Jetzt meine Änderung in der Routine, die irgendwie ein blinkendes Grid nach sich zieht.

Delphi-Quellcode:

procedure TFrameAuftrag.UpdateRowHeight(GridPositionen: TStringGrid; const iRow, iHeight: Integer);
begin
with GridPositionen do
if iHeight > RowHeights[iRow] then
   RowHeights[iRow] := iHeight
else if iHeight < RowHeights[iRow] then
   RowHeights[iRow] := iHeight;
end;

Das ist nicht unbedigt klug von mir gewesen. Aber mehr fällt mir jetzt nicht ein. Diese Grid-Routinen (Formatierungen) kappier ich überhaupt nicht. Eine kleine Hilfe bitte.