отправка файла через сокеты-по чястям! (дэлфи)

[ddc]

всем привет!
отправка файла происходит так(взял из книги фленова):

procedure Tform1.SendFile(path: string);
var
  buf:ansistring;
begin
try
  fstream:=TFileStream.Create(path, fmOpenRead);
  buf:='File:'+IntToStr(fstream.Size) + #0;
  fstream.Position:= 0;
  clientsocket1.Socket.SendBuf(buf[1],Length(buf));
  clientsocket1.Socket.SendStream(fstream);
finally
end;

проблема в том что нельзя контролировать процесс отправки(функция отмены,прогрессбар).
подумал что можно отправлять не стрим-ом, а кусочками в цикле.правильное это решение и как реализовать?

upd:
удалось додуматся до этого:

procedure TForm2.sendfile(path: string);
var
 fs: TFileStream;
 br: tbytes;
 ss:ansistrinгь
begin
      setlength(br,1400);
      fs:=TFileStream.Create(path, fmOpenRead);
      ss:='Size:'+IntToStr(fs.Size) + #0;
      serversocket1.Socket.Connections[0].SendBuf(ss[1],Length(ss));
      fs.Seek(0,sofrombeginning);
   try
  while fs.Position<fs.Size do begin
      progressbar1.Position:=round(fs.Position/(fs.Size/100));
     fs.Read(br,1400);
     serversocket1.Socket.Connections[0].SendBuf(br[0],Length(br));
     fs.Seek(1400,sofromcurrent);
   end; 
   finally
   end;

end;

но полученный файл( картинка ) больше исходного на 130 байт! и не хочет ничем открыватся.