[tcp_ip_es]

Buenas, los fines de semana no me suelo meter en el foro, vamos a ver aqui te dejo una rutinita que envia correo (incluye el tema de anexos).

procedure TFCorreo.FlatButton1Click(Sender: TObject);
var a,d,i,x:integer;
 ol:olevariant;

begin
for d:=0 to Destinatario.Lines.count -1 do // envio un correo por cada direc.
begin
// todas las variables a nil para no tener problemas con Access Violation ;)
   mailitem:=nil; 
   notesitem1:=nil;
   notesitem2:=nil;
   notesrichItem:=nil;
   notesrtStyle:=nil;

 mailitem:=Ndb.createdocument;
 try
  try
 
  NotesItem1:=mailitem.ReplaceItemValue('sendTo',Destinatario.Lines[d]);
  NotesItem2:=mailitem.ReplaceItemValue('Subject', Asunto.text);
  notesrichitem:= mailitem.CreateRichTextItem('Body');
  notesRtStyle:=Ns.CreateRichTextStyle;
  notesrichitem.appendstyle(notesRtStyle);
  notesrichitem.appendtext(Cuerpo.text);
  for a:=0 to Anexos.lines.count -1 do
  begin
   notesrichitem.AddNewLine(2,false);
   notesrichitem.EmbedObject(EMBED_ATTACHMENT,'',Anexos.lines[a], 'EmbedObject');

  end;
  recipients:='';
  mailitem.Set_SaveMessageOnSend(true);
  mailitem.Send(false,recipients);


  except
   on E:Exception do
     MessageDlg('Error al enviar el mensaje, mtError, [mbOK],0);
  end;
  finally

   mailitem:=nil;
   notesitem1:=nil;
   notesitem2:=nil;
   notesrichItem:=nil;
   notesrtStyle:=nil;

  end;
end;
showmessage('El Mensaje se ha enviado con éxito');
end;

En principio tu instrucción es correcta, pero como no se en que contexto del programa esta te envío el código y asi es más fácil.....

Saludos, Tony .....seguimos en contacto