请教 TClientSocket 的使用，文件传送程序出错问题 (50分)

我正在用TClientSocket和TServerSocket做文件传送程序，但客户端设置好要发送的文件和对方IP执行后出现异步端口错误，请问如何解决

首先服务器端口要打开，客户端对应连接以后，使用sendbuf发送文件

http://www.lkinfo.net/SocketFile.rar

因为我用的是D7，找不到TClientSocket，所以TClientSocket是动态生成的，并设置Port为1234，
当我打开客户端（服务器是关闭的）设置好要发送的文件和TClientSocket的Host(Host值为127.0.0.1，即是自动的IP地址，因为我只有一台计算机），执行后出现异步端口错误,
代码如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ScktComp, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
ClientSocket1: TClientSocket;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Open;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ClientSocket1:= TClientSocket.Create(self);
ClientSocket1.host:='192.168.4.1';
ClientSocket1.Port:=5656;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ClientSocket1.Destroy;
end;

end.
请大家帮忙解决

TYZhang 你好
因为我用的是D7，找不到TClientSocket，所以TClientSocket是动态生成的
当改动后运行你的程序，也出现同样的错误
是否还需要设置什么属性？？？？？？？？？

TClientSocket，TClientSocket你可以从这里安装：
{delphi}/bin/dclsockets70.bpl
你不改动直接运行我的程序，有错误吗？

谢谢 TYZhang ，稍候就结贴，还有一个问题

为什么动态生成时就会出错，而直接拖放控件方式生成的就不会出错呢？？？？

理论上应该一致，你分析一下你的创建程序是否有问题。

接受答案了.