tengo un problema con ServidorSMTP.Connect(10000);

[rackzo]

alomejor mi pregunta no kedo vien planteada lo que pasa es ke estoy teniendo problemas al utilizar el smtp.connect(10000); la verdad no se vien como se utiliza soy nuevo programando en delphi por lo general lo ago en .net que fue donde aprendy, bueno siguiendo con el tema no se si tenga que añadir una libreria extra para darle el valor de 10000 al connect ya que cuando escrivo SMTP. me aparece solo la opcion de ponerlos de la siguiente forma SMTP.Connect; no me pide valor o algo por el estilo, en .net el connect(); quiere decir que es un metodo ke recibe algun valor pero en delphi la verdad aun no se les anexo el codigo completo por si tengo un error.


procedure TForm1.Button1Click(Sender: TObject);
var ServidorSMTP:TIdSMTP;
var Mailmessage:TIdMessage;
begin
ServidorSMTP:=TIdSMTP.Create(Self);
Mailmessage:=TIdMessage.Create(Self);
with Mailmessage do
begin
Subject:='Prueba?';
Body.Text:='hola soy DELPHI';
from.Address:='[email protected]';
Recipients.EMailAddresses:='[email protected]';
end;
try
ServidorSMTP.Host:='smtp.gmail.com';
ServidorSMTP.Port:=587;
ServidorSMTP.AuthenticationType:=atLogin;
ServidorSMTP.UserId:='[email protected]';
ServidorSMTP.Password:='contraseña';
ServidorSMTP.Connect(10000);
try
ServidorSMTP.Send(Mailmessage);
except
on E: Exception do
ShowMessage('Falla al enviar:'+E.Message);
end;
finally
ServidorSMTP.Disconnect;
ServidorSMTP.Free;
Mailmessage.Free;
end;
close;
end;
end.

de antemano les agradesco que minimo se lean se les agradece !!gracias!!