procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#32 then Image1Click(sender); end;