Передача файла через TClientSocket к TServerSocket и др.

[Le Celticant]

Проблема в следующем: надо передать файл от клиента к серверу. Сначало пытался сделать обычным методом, но выяснилось, что файлы можно посылать только от сервера к клиенту, а не на оборот(клиент не может отправлять стримы). Поэтому решил использовать исключительно для передачи файлов NMStrm и NMStrmServer соответсвенно.
Код отправки данных о файле:

Procedure FileUpload(FileDir: String);
var
    FMStream: TMemoryStream;
begin
  FMStream := TMemoryStream.Create;
  FMStream.LoadFromFile(FileDir);
  MainForm.NMStm1.PostIt(FMStream);
  FMStream.Free;
end;

При получении на сервере(событие OnMSG):

procedure TForm3.StartDownload(Sender: TComponent; const sFrom: String;
  strm: TStream);
var
  DStream: TMemoryStream;
begin
  DStream := TMemoryStream.Create;
  DStream.CopyFrom(Strm, NMStmServer1.BytesTotal);
  DStream.SaveToFile(edt2.text);
end;

Но ничего не происходит. Вообще, я сначало грешил, что стримы не работают, но потом проверил на клиенте:

Procedure FileUpload(FileDir: String);
var
    FMStream: TMemoryStream;
begin
  FMStream := TMemoryStream.Create;
  FMStream.LoadFromFile(FileDir);
  FMStream.SaveToFile('ololo.txt');
  FMStream.Free;
end;

Отлично сохранило.
Однако, после отправки и при непосредственно получении ничего не происходит, даже пустой файл не создаётся(и да, я проверял, действие происходит, т.е. чтото там пришло).
По гуглил, оказывается я ни один такой умный, и вроде как это считается единственным методом. И что удивительно, у меня всё правильно. Но тем не менее не работает.
Выкладывать весь исходный код смысла нет - он слишком большой, да и данные процедуры почти не зависимы от чего-либо.
P.S. Так же я использовл кучу других компонентов, еврейских и не очень. Эффект симметричен.

[Sensizu]

Я не силён в протоколах передачи файлов, но там вроде другой лучше использовать (если файлы не только текст). Толи UDP... Не помню...

[Le Celticant]

Я уже пробовал по UDP, но на самом деле УДП только быстрее, но куда менее надёжен - пакет может прийти как повреждённый, так и вообще не прийти. И вообще какбэ не принципиально в данном случае.
Проблема не связанна с протоколом, я уверен.