Error de tipo 554 al enviar correo.

[acl_gandalf]

Hola a tod@s, estoy haciendo un pequeño cliente de correo con el componente tnmsmpt de la paleta fastnet () pero me dice cuando le doy a enviar que hay recipientes vacios y no se por que puede ser, he probado a mandar a diferentes cuentas de correo desde diferentes cuentas de correo y en ningun caso he tenido exito, alguien sabe porquE?¿

Por cierto en el evento de RecipientNotfound del tnmsmtp al visualizar el recipiuiente que falta me indica


procedure TForm1.Button1Click(Sender: TObject);
begin
with NMSMTP1 do begin
Host := 'asmtp.aidico.es';
UserID := 'emisor@correo.es';
form1.Caption := 'Enviando...' ;
Application.ProcessMessages;
Port:=25;
Connect;
EncodeType:=uuMime;
PostMessage.FromAddress := 'emisor@correo.es';
PostMessage.FromName:='aaron';
PostMessage.ToAddress.Text := 'receptor@correo.es';
PostMessage.Subject :='prueba';
PostMessage.ToCarbonCopy.Text := '';
PostMessage.ToBlindCarbonCopy.Text := '';
PostMessage.Body.Text := 'prueba desde delphi';
try
SendMail;
form1.caption:= 'Enviado con éxito';
Except on e:exception do begin
form1.Caption := 'FALLO !!!' ;
showmessage('Ha habido un error de tipo '+ E.message);
Application.ProcessMessages;
end;
end;
Disconnect;
end;
end;

procedure TForm1.NMSMTP1Failure(Sender: TObject);
begin
showmessage('Error. No se ha enviado el mail');
end;

procedure TForm1.NMSMTP1Success(Sender: TObject);
begin
ShowMessage('Mensaje enviado correctamente');
end;

procedure TForm1.NMSMTP1RecipientNotFound(Recipient: String);
begin
ShowMessage('No hay recipinetes \ '+Recipient );
end;
end.