Sin embargo si pongo esto:
procedure TfrmAlbaranes.FormKeyPress(Sender: TObject; var Key: Char);
begin
MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
if Key = #13 then
if txtDescuento.Focused then
frmAlbaranes.SpeedButton1.Click
end;
Me captura todos las teclas MENOS EL INTRO