需要实现网络文件的传输！用下列方法难以实现，请高手帮忙！给分的！在线等候！

需要实现网络文件的传输！用下列方法难以实现，请高手帮忙！给分的！在线等候！
代码如下：请修改：甲方：
procedure TForm2.Button2Click(Sender: TObject);
     var
    buff:array[1..255] of char;
     fromf:file;
     num:integer;
begin
assignfile(fromf,'e:\a.bmp');
reset(fromf,1);
repeat
 blockread(fromf,buff,255,num);form2.ClientSocket1.Socket.SendBuf(buff,num);until num=0;closefile(fromf);
showmessage('finshed!');end;乙方：
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var
   buff:array[1..255] of char;  num:integer;
begin form1.ServerSocket1.Socket.Receivebuf(buff,255);blockwrite(tof,buff,255,num);
end;