[[seoane]]

Prueba con esto:

Código Delphi [-]
procedure TForm1.Edit1DblClick(Sender: TObject);
begin
  if GetKeyState(VK_LSHIFT) < 0 then
  begin
    ShowMessage('La tecla shift izquierda esta pulsada');
  end else
    ShowMessage('La tecla shift izquierda NO esta pulsada');
end;