Datei wird beim senden kleiner :(

[freak4fun]

hallo,

Code:

procedure TMain_Form.FTPServerExecute(AThread: TIdPeerThread);
var
  DateiStream: TFileStream;
begin
  try
    DateiStream := TFileStream.Create(SaveDialog1.FileName, fmCreate);
    AThread.Connection.ReadStream(DateiStream);
  finally
    DateiStream.Free;
    FTPClient.Disconnect;
  end;
end;

Wenn ich so eine Datei versende ist die gesendete Datei klainer als die Anfangsdatei. Heisst auf Deutsch: Da fehlt was!

Kann mir bitte einer sagen was ich falsch mache?

Wenn was fehlt bitte auch melden, ich hab noch mehr code.