Problema Indy y Delphi

[dbautista]

Muchas gracias por contestar amigos, este es el codigo que utilizo . . . de antemano les agradezco su tiempo y apoyo, estare al pendiente.

procedure TfrBandejaAutorizaPedidos.Button1Click(Sender: TObject);
var
MailMessage: TIdMessage;
SMTP: TIdSMTP;
begin
SMTP.Host := '192.168.0.150';
SMTP.Port := 25;
SMTP.Username := '[email protected]';
SMTP.Password := 'desarrolloit';

MailMessage.Recipients.add;
MailMessage.Recipients[0].Name:='Sistema de Produccion';
MailMessage.Recipients[0].Address:='[email protected]';

MailMessage.From.Address :='[email protected]';
MailMessage.From.Name :='Ordenes';
MailMessage.Recipients.EMailAddresses :='[email protected]';

MailMessage.Subject :='Listado de Ordenes';
MailMessage.Body.Text :='Verificar Archivo Adjunto';

if FileExists('D:\Pruebas.txt') then
TIdAttachmentFile.Create(MailMessage.MessageParts, 'D:\Pruebas.txt');

try
try
SMTP.Connect;
SMTP.Send(MailMessage);
except on E:Exception do
ShowMessage(E.Message);
end;
finally
if SMTP.Connected then SMTP.Disconnect;
end;

end;


end;