[Alegun]

Первое, что пришло в голову

Код:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Button1.Tag:= 1;
end;

procedure TForm1.Button1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Button1.Tag:= 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Button1.Tag > 0 then 
  Label1.Caption:= 'Нажат Button1' 
 else        
  Label1.Caption:= 'Button1 не нажат';
end;