procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
　if Key = VK_SPACE then begin
　ShowMessage('a');
end;