Симплекс метод

[Kazakhstan]

не получается сделать список в стрингриде. вот что я делаю
когда ввожу много ячеек в стрингриде она combobox переходит на нулевую ячейку
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;