Función Delphi para trasmitir archivos Sftp

Bien describo la idea

Propio
•    Nuestra Rutina genera dos archivos
•    Los guarda en una carpeta predeterminada
•    Enviar ambos archivos via SFTP
•    Nosotros registramos en bitácora Éxito de TX o fracaso

La Función creo es así:

Function txsftpArchivos(sCarpeta,sEquipo,sUsuario,sPassword,sPuerto,sFtpFolder : String; Archivos : TStringlist) : String;

La rutina
.
.
.
Var
sCarpeta,sEquipo,sUsuario,sPassword,spuerto,sFtpFolder,sEnvio : String; Archivos : tStringlist;
Begin
De nuestro lado
•    Archivos := tStringlist.Create(nil)
•    Buscamos la configuración
•    Pasamos / Creamos valores
•    sEquipo:=Nombre del equipo a donde se va enviar el archivo
•    sUsuario:=Nombre del usuario
•    sPassWord:= Clave de Acceso al Equipo
•    sPuerto:=Puerto de Enlace con el equipo
•    sFtpFolder:=Carpeta de destino donde se pasaran los archivos
•    Agregamos los archivos
•    Archivos.Add(‘C:\Temp\Archivo01.txt’);
•    Archivos.Add(‘C:\Temp\Archivo02.txt’);
•    Ejecutamos la Funcion
•    sEnvio:= txsftpArchivos(sCarpeta,sEquipo,sUsuario,sPassword,sPuerto,sFtpFolder, lArchivos);
•    if sEnvio=’’ then
•    Éxito
•    Else
•    Se analisa sEnvio y se presenta o se guarda mensaje
•    Se agrega a la bitácora datos de envio junto con la variable sEnvio
•    Fin


La función es la que deseamos nos coticen.