[[seoane]]

Prueba con GetKeyState:

Código Delphi [-]
//Por ejemplo
if GetKeyState(VK_LBUTTON) < 0 then
begin
  // Aqui lo que quieras
end;

Otros valores que te pueden servir:

  
  VK_LBUTTON
  VK_RBUTTON	
  VK_MBUTTON