Combobox in der Zelle eines Stringgrids

[Flogo]

Ich hab mir jetzt aus den verschiedenen Threads folgendes zusammengebaut (Die meisten wahren ja zum DBGrid + Checkbox). Weil es bei mir viel kürzer geworden ist, als bei den meisten Beispielen wüsste ich gerne ob ich nicht irgendwas wichtiges vergessen hab.

Delphi-Quellcode:

function TStringGridEx.AddComboBox(aCol, aRow: Integer): TComboBox;
var Rect: TRect;
begin
  Result := TComboBox.Create(Owner);
  Objects[aCol, aRow] := Result;
  Result.Parent := Parent;
  Result.Color := clWindow;
  Rect := CellRect(aCol, aRow);
  Result.Left := Left + Rect.Left +2;
  Result.Top := Top + Rect.Top +2;
  Result.Width := Rect.Right - Rect.Left;
  Result.Height := Rect.Bottom - Rect.Top;
end;