Problema al enviar un correo con delphi7

[escullar]

Hola foranios.

Tengo un problemilla en una aplicacion que estoy desarrollando el delphi 7 y que me es imposible resolver.

Al intentar enviar un correo de esta forma:

Código Delphi [-]
 
SMTP.Host:=Host;
  SMTP.Port:=Port;
  SMTP.Username:=Username;
  SMTP.Password:=Password;
  try
    try
      SMTP.Connect();
      SMTP.Send(FMessage);
    except on E:Exception do
      MessageDlg(E.Message,mtError,[mbOK],E.HelpContext);
    end;
  finally
    if SMTP.Connected then
      SMTP.Disconnect;
  end;

Me da un errror de socket. Este problema lo he resuelto desactivando el antivirus pero a cambio me da el siguiente error "5.7 RELAYING DENIED".
He intentado buscar ayuda por todos lados y nada de nada. La configuracion que le asigno es la de mi maquina, la cual funciona perfectamente.

¿Alguien saber la causa del error y alguna posible solucion?

Un cordial saludo y gracias de antemano.