Передача файла от клиента к серверу TFileStream

[rombler69]

Добрый день

Пытаюсь передать файл от клиента к серверу
файл передается, но в нем не хватает 4 байт

вот код клиента
кнопка1, это отправка потока на сервер
кнопка2- диалог выбора файла

var
  Form1: TForm1;
  FName: string;


procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Connect;
IdTCPClient1.IOHandler.WriteLn(FName);
IdTCPClient1.IOHandler.WriteFile(FName,True);
Button1.Enabled:=False;
IdTCPClient1.DisConnect;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

  if OpenDialog1.Execute then begin
    Edit1.Text := OpenDialog1.FileName;
    Label1.Caption := Edit1.Text;
    FName := Label1.Caption;

  end;
end;

end.

вот код сервера

var
  Form1: TForm1;
  FName: string;


procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
 FileStream : TFileStream;
 FileName : String;

begin

  FileName:= AContext.Connection.IOHandler.ReadLn;
  FileStream:=TFileStream.Create('C:\'+ExtractFileName(FileName),fmCreate);
  AContext.Connection.IOHandler.ReadStream(FileStream);
  FileStream.Free;
  AContext.Connection.Disconnect;
end;
end.

подскажите куда эти 4 байта исчезают и как с этим бороться?
Спасибо.

[TwiX]

Передавать через потоки. Как-то так:

Клиент:

memoryStream.loadFromFile('asd.txt' );
IdTCPClient1.IOHandler.Write(memory Stream.size);
IdTCPClient1.IOHandler.Write(memory Stream);

Сервер:

size:=AContext.Connection.IOHandler .ReadInt64();
mm:=TMemoryStream.Create;
AContext.Connection.IOHandler.ReadS tream(mm, size);