progressbar и отправка файла через ServerSocket

[D_E_N]

Привет всем. как прикрутить прогрессбар к передачи файла с serversocket?
и какие команды вписать на кнопку отмены передачи... вот код передачи которым пользуюсь

procedure TForm1.Button1Click(Sender: TObject); // Передаём файл
var
Size: integer;
P: ^Byte;
begin
MS := TMemoryStream.Create; 
MS.LoadFromFile(Edit1.Text); 
// Посылаем информацию о файл (команда # название # размер)
ServerSocket1.Socket.Connections[0].SendText('file#'+Edit1.Text+'#'+IntToStr(MS.Size)+'#');
MS.Position := 0; 
P := MS.Memory; 
Size := ServerSocket1.Socket.Connections[0].SendBuf(P^, MS.Size);
ProgressBar1.Position := Size*100 div MS.Size;
StatusBar1.SimpleText := 'Отправлено '+IntToStr(Size)+' из '+IntToStr(MS.Size)+' байт'
end;

[Dagoex]

да я вот тоже чтото пахожее ищу...пака глухо!!

[mss]

На есть метод SendStream.
делаешь своего наследника стрима, перекрываешь у него вирт.метод Read и получаешь аолный контроль над прогрессом чтения из стрима и соотв-но отправки через сокет прочитанных из него данных партнеру по коннекту.