[Phedor]

Код:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
var
  s: String;
begin
  if ACol=2 then // Если столбец 2-ой
  begin
    s := StringGrid1.Cells[ARow, ACol-1]; // Значение в ячейки "левее" в переменную "s"
    if not Assigned(Form2) then  // Если форма не инициализирована
    begin 
      Form2 := TFrom2.Create(Self); // То создаем форму
   end;
    Form2.ShowModal;  // Отображаем
    { Если форма была создана и отображается, то можно просто передать фокус Form2.SetFocus }
   end
  end;
  CanSelect := True;
end;