Виснет машина при передаче файла через сокет

[SlashMan]

Есть два проекта: Клиент и сервер, сервер отправляет клиенту файл с помощью компонентов TClientSocket,TServerSocket
код сервера, выполняющий отправку:

procedure TForm1.Button1Click(Sender: TObject);
var
   Size: integer;
  P: ^Byte;
begin
   FileName:= Label2.Caption;
   MS := TMemoryStream.Create;
   MS.LoadFromFile(FileName);
   ServerSocket1.Socket.Connections[0].SendText('file#'+FileName+'#'+IntToStr(MS.Size)+'#');
   MS.Position := 0;
   P := MS.Memory;
   Size := ServerSocket1.Socket.Connections[0].SendBuf(P^, MS.Size);
end;

код клиента, принимающий файл:

procedure TForm1.Writing(Text: String);
begin
if MS.Size < Size then
MS.Write(Text[1], Length(Text));
ProgressBar1.Position := MS.Size*100 div Size;
if MS.Size = Size then
begin
Receive := False;
MS.Position := 0;
MS.SaveToFile('Name');
ClientSocket1.Socket.SendText('end');
MS.Free;
end; 
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Rtext:=ClientSocket1.Socket.ReceiveText;
  if Copy(Rtext, 0, Pos('#', Rtext) -1) = 'file' then
    begin
      MS := TMemoryStream.Create;
      Delete(Rtext, 1, Pos('#', Rtext));
      Name := Copy(Rtext, 0, Pos('#', Rtext) -1);
      Delete(Rtext, 1, Pos('#', Rtext));
      Size := StrToInt(Copy(Rtext, 0, Pos('#', Rtext) -1));
      Delete(Rtext, 1, Pos('#', Rtext));
      Label1.Caption:=inttostr(Size);
      Label2.Caption:=Name;
      Receive := True;
      Writing(RText);
    end;
end;

Во время передачи, комп не реагирует на нажатия.. зависает полностью.
В чем может быть проблемма, и как сделать так, чтобы функциональность компьютера сохранялась во время передачи файла?

Заранее спасибо за содействие.

[spamer]

SlashMan , а Вы не пробовали посмотреть вот это тему http://programmersforum.ru/showthrea...t=57445&page=1

[SlashMan]

спасибо, помогло