[pesi]

Создай глобальную переменную

Код:

var
 Keyy: Word;

и далее

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_space  then
button1.Left:= button1.Left+10;
end;

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = vk_space  then
button1.Left:= button1.Left+10;
keyy:=key;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if keyy <> vk_space  then
showmessage('Hallo');
end;