[Страдалецъ]

Ну вот примерчик небольшой:

Код:

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
 case Key
 of VK_A: SpeedButton1.Perform(WM_LBUTTONDOWN,0,0);
    VK_S: SpeedButton2.Perform(WM_LBUTTONDOWN,0,0);
    VK_D: SpeedButton3.Perform(WM_LBUTTONDOWN,0,0);
 end;
end;

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 case Key
 of VK_A: SpeedButton1.Perform(WM_LBUTTONUP,0,0);
    VK_S: SpeedButton2.Perform(WM_LBUTTONUP,0,0);
    VK_D: SpeedButton3.Perform(WM_LBUTTONUP,0,0);
 end;
end

Положите на форму 3 компонента TSpeedButton и попробуйте код. А KeyPreview свойство формы.