client 出错

Question

var
  Form1: TForm1;
  moTFileStream:TFilestream;
  intLength:integer;
implementation{$R *.dfm}procedure TForm1.FormShow(Sender: TObject);
begin
  ClientSocket1.Active:=true;
  ClientSocket1.Open;
end;procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  showmessage('OK');
end;procedure TForm1.Button1Click(Sender: TObject);
var
  strPath:string;
begin
  strPath:='C:\1.txt';
  moTFileStream:=TFilestream.Create(strPath,fmCreate);
  intLength:= moTFileStream.Size;
end;procedure TForm1.ClientSocket1Read(Sender: TObject;
                           Socket: TCustomWinSocket);var
  strReceive:string;
begin
  if (strReceive='sendlength') then
  begin
    //发送字符串,标明现在要发送的文件的大小
    socket.SendText(inttostr(intLength));
  end
  else if (strReceive='sendfile') then
  begin
    Socket.SendStream(moTFileStream);
  end
  else if (strReceive='finish') then
  begin
    showmessage('Send over');
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  self.ClientSocket1.Address:='192.168.18.184';
  self.ClientSocket1.Port:=2000;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  moTFileStream.Free;
end;end.这是小弟写的一个Client程序可是运行的时候就是会出错,哪个朋友可以帮我一下谢谢..