Envio A Mail Y Ftp

[Yusk333]

Hola a todos
aqui les dejo un source para hacer envio de informacion a traves de ftp , alguien tendra uno para hacer envio a traves de email ,, ese si no se como ,, y una propuesta que si creamos un keylogger no se si este permitido en este foro pero es mi propuesta

procedure SubirArchivoFTP (Host: PChar; Puerto: integer; User, Pass, FicheroASubir, NombreParaSubir: Pchar); 
  var 
    intconn, intopen :   hinternet; 
  begin 
    intopen := InternetOpen('iexplore', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0); 
    intconn := InternetConnect(intopen, Host, Puerto, User, Pass, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0); 
    sleep(100); 
    if GetLastError=0  then 
      FtpPutFile(intconn, FicheroASubir, NombreParaSubir, FTP_TRANSFER_TYPE_BINARY, 0); 
    InternetCloseHandle(intconn); 
    InternetCloseHandle(intopen); 
  end;

saludos de antemano