[LordBits]

este es utilizando las componente TWinshoeSMTP.

 procedure SendMail;
 var
  sToo  : TStringList;
  sText : TStringList;
  i	 : integer;
 begin
 
   sToo  := TStringList.Create;
   sText := TStringList.Create;
   try
    sToo.Add('[email protected]')
    SMTP.Host   := '10.10.10.11';
    sToo.Append('[email protected]');
    msg.Too	 := sToo;
    msg.Subject := 'JIBM';
    sText.Append('este es desde mi programa sin thread por el momento');
    msg.Text	:= sText;
    msg.From	:= '[email protected]';
    msg.Attachments.AddAttachment('c:\cursocpp.pdf');
    SMTP.Send(msg);
    except
     
   end;
 end;