var
hNet: HINTERNET;
hCon: HINTERNET;
Context: DWORD;
begin
Result := FALSE;
Context:= 0;
hNet := InternetOpen('agentSeoane', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if (hNet <> nil) then
begin
hCon:= InternetConnect(hNet, 'ftp.domingo.seoane', 21, 'seoane', 'congratulations', INTERNET_SERVICE_FTP, 0, Context);
if (hCon <> nil) then
begin
Result := FtpPutFile(hCon, 'c:\felicidades.jpg', 'mis felicitaciones/felicidades.jpg', FTP_TRANSFER_TYPE_BINARY, Context);
InternetCloseHandle(hCon);
end;
InternetCloseHandle(hNet);
end;
end;