1:
2:

st:=Tfilestream.create('c:\test.dat',fmOpenRead);
st:='TEST.dat(8)'+st;  //Das geht halt nicht ;)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
  FStream: TFileStream;
begin
  FStream := TFileStream.Create('C:\test.abc', fmOpenRead);
  try
    SaveStrToStream(Fstream,'test.abc');
    AThread.Connection.OpenWriteBuffer;
    AThread.Connection.WriteStream(FStream);
    AThread.Connection.CloseWriteBuffer;
  finally
    AThread.Connection.Disconnect;
    FStream.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button2Click(Sender: TObject);
var
  FStream: TFileStream; s:string;
begin
  FStream := TFileStream.Create('C:\temp.abc', fmCreate);
  with Form1 do begin
    IdTCPClient1.Connect; // Verbindung aufbauen
    try
      IdTCPClient1.ReadStream(FStream, -1, True); // Stream empfangen
      FStream.Seek(0, soFromBeginning);
    finally
      IdTCPClient1.Disconnect; // Verbindung schließen
      FStream.Free; // Stream freigeben
    end;
   Loadstrfromstream(Fstream,s);
   showmessage(s);
  end;					

1:
2:
3:

      FStream.Free; // Stream freigeben  <------------
    end;  
   Loadstrfromstream(Fstream,s); // <------------