Envío de mail con un archivo adjunto.

[y_a_p]

Bunas tardes, disculpen volver con este tema... eh buscado y no encuentro lo que necesito... A la hora de crear el mensaje para ser enviado, el ejemplo que dieron es este.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  EnviarMensaje( 'juanito33', 'djeuE21', 'smtp.terra.es',
             'c:\documento.zip', 'Te envio mi documento',
             '[email protected]', 'Adjunto archivo: documento.zip' );
end;

Yo lo que necesito es que en lugar de poner en codigo el destinatario, necesito sacarlo de la base de datos, porque no siempre se le va a enviar un email a una sola persona, todos tienen emails distintos..

espero su respuesta, muchas gracias