работа на stringgride

[Kazakhstan]

Я так и делаю. тока она у меня не работает правельно. когда ввожу много ячеек в стрингриде она наченает гнать. вот что я пишу.
procedure TForm1.StringGrid1SelectCell(Sender : TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var R : TRect;
begin


R := StringGrid1.CellRect(StringGrid1.Co lCount-2, ARow);
R.Left:=R.Left+StringGrid1.Left;
R.Right:=R.Right+StringGrid1.Left;
R.Top:=R.Top+StringGrid1.Top;
R.Bottom:=R.Bottom+StringGrid1.Top;
ComboBox1.Top:=R.Top+1;
ComboBox1.Left:=R.Left+1;
ComboBox1.Visible:=True;
ComboBox1.SetFocus;
end;

[artemavd]

Помести обычный Combobox в ячейку таблицы да и все