enviar mail desde delphi

[martinchooozzz]

asi pude enviar correo con mi cuenta de speedy! tube que agregar esto smtp.AuthenticationType:=Atlogin; sino me daba un error de autentificacion despues lo otro andaba x ahi en los foros;

 
uses
  Idmessage, IdSMTP;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var
   smtp: TIdSMTP;
   mail: TIdMessage;
 begin
   smtp := TIdSMTP.Create(Self);
   smtp.AuthenticationType:=Atlogin;
   mail := TIdMessage.Create(Self);
   with smtp do
   begin
     Port := 25;
     Host := 'mail.speedy.com.ar';
     Username := '[email protected]';
     Password := '123456';
   end;
   with mail do
   begin
     Recipients.Add;
     Recipients[0].Name := 'martincho';
     Recipients[0].Address := '[email protected]';
     From.Name := 'Ubicacion de mi sistena';
     From.Address := '[email protected]';
     Subject := 'Ubicacion Sigea';
     Body.Text := 'cuerpo del mensaje';
   end;
 //  TIdAttachment.Create(mail.MessageParts, 'C:\adjunto.txt');
   smtp.Connect(30000);
   try
     try
      smtp.Send(mail);
     except
       on E: Exception do
         ShowMessage(E.Message);
     end;
   finally
     if smtp.Connected then
       smtp.Disconnect;
   end;
   mail.Free;
   smtp.Free;
end;