enviar un email desde delphi a hotmail o gmail

[abraham]

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  mail : TIDMessage;
  smtp : TIdSMTP;
begin
  smtp := TIdSMTP.Create(self);
  // ASIGNO EVENTOS
  smtp.Name := 'Smtp';
  // CONFIGURACION DEL SERVIDOR AL QUE SE ENVIA EL CORREO
  with smtp do begin
    AuthenticationType := atLogin;
    Host :='[email protected]'; //Aqui colocas la direccion del servidor de correo saliente;
    port := 25;
    Username :='[email protected]';  //Aqui colocas la direccion de correo desde la que enviaras el correo;
    Password := 'XXXX'  //Clave de dicha cuenta;
  end;
  mail := TIdMessage.Create(Self);
  // CONFIGURACION DEL MENSAJE A ENVIAR
  with mail do begin
    From.Address := '[email protected]'; //aqu iva la direccion de correo desde la que vas a enviar
    Recipients.EMailAddresses := '[email protected]';//aqu iva la direccion de correo hacia la que vas a enviar
    Subject := 'hola'//Asunto del correo
    body.Text  := 'delphi'//Texto del correo
  end;
  //aDJUNTA EL ARCHIVO
 // if FileExists(//El archivo que vas a enviar) then
   //   TIdAttachment.create(mail.MessageParts,//Ruta del archivo que vas a enviar);
  try
    // CONEXION CON EL SERVIDOR DE CORREO
    smtp.Connect(10000);
    try
      // ENVIO DEL MENSAJE
      smtp.Send(mail);
    except
      on E: Exception do
         ShowMessage('Fallo al enviar: ' + E.Message);
    end;
    ShowMessage('Mensaje enviado satisfactoriamente');
  finally
    if SMTP.Connected then SMTP.Disconnect;
    smtp.free;
    mail.free;
  end;
end;

este:
undeclared identifier: 'Username'
q sera.?