симплекс метод для решение задач в производстве

[Kazakhstan]

не получается до ума довести выподающий список в стрингриде
procedure TForm1.StringGrid1SelectCell(Sender : TObject; ACol,
ARow: Integer; var CanSelect: Boolean);

begin

//Âñòàâêà ComboBox
R:=StringGrid1.CellRect(StringGrid1 .ColCount-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;
подскажите пожалуйста