procedure TForm3.DBGrid1KeyPress(Sender: TObject; var Key: Char);
var
lStTemp: String;
begin
if (TDBGrid(Sender).SelectedField.FieldName = 'Field1')
and (TDBGrid(Sender).ControlCount > 0)
and (TDBGrid(Sender).Controls[0] is TInplaceEdit)
then
begin
lStTemp := TEdit(TDBGrid(Sender).Controls[0]).Text + Key;
end;
end;