谁来帮我弄一下，最好简短一点的，好的一定会加分的！

课题：FTP客户端
目的：熟悉FTP网络编程的基本方法，掌握FTP客户端程序的编写方法；
任务：编写一个FTP客户端程序，该程序可实现FTP客户端上传下载和文件管理的功能。

还有，在哪个平台运行，还有设计思路也大概说说吧，谢谢了！

一个简单的FTP程序，阻塞模式。DELPHI版。

//客户端
program ftpc;

{$APPTYPE CONSOLE}

uses
Windows,
Winsock,
Classes,
SysUtils;

const
recv_port = 2000;
send_port = 3000;
max_filesize = 32*1024;
type
filedata = record
ffname : array[0..29]of char;
ffdata : array[0..max_filesize-1] of char;
len : integer;
end;
var
sock : TSOCKET;
sa : SOCKADDR_IN;
dp : filedata;
f : TFileStream;
wsd : TWSAData;
s : string;
i : integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
if WSAStartup(makeword(2,2),wsd) <> 0 then
begin
writeln('sock initialize error.');
exit;
end;
sa.sin_family:=AF_INET;
sa.sin_addr.S_addr:=inet_addr('127.0.0.1');
sa.sin_port:=htons(recv_port);

sock := socket(af_inet,sock_stream,0);