var
IdFTP: TIdFTP;
IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
begin
IdFTP := TIdFTP.Create(Nil);
try
IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
try
IdFTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
IdFTP.UseTLS := utUseRequireTLS;
...
finally
IdSSLIOHandlerSocketOpenSSL.Free;
end;
finally
IdFTP.Free;
end;
end;