procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var w: String;
begin
     w := (DBGrid1.Controls[0] as TInPlaceEdit).Text;
end;