1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

var S, S2: TStream;
    aByte: Byte;
    filename: String;
    aBiggerVar: Cardinal;
begin
//normalerweise würdest du denke ich mal das so machen
S := TFileStreamStream.create( deinPfadzurDatei, fmOpenRead or fmShareDenyWrite );
try
 DeinClient.Socket.SendStream( S );
except //da bei erfolg sendstream den Stream freigibt
 S.Free;
end;

//so nun musst du aber "identifizieren" können was du da sendest!
//aber erstmal nen Stream erstellen:
S2 := TMemoryStream.create;
try
aByte := 02; //02 wäre dann deine identifizierungsnummer für eine Datei ! (du weißt ab jetzt folgt: Dateigröße, Dateinamenlänge, Dateiname, Datei selbst
S2.WriteBuffer( aByte, 1 );
S := TFileStreamStream.create( deinPfadzurDatei, fmOpenRead or fmShareDenyWrite ); //Datei öffnen
aBiggerVar := S.Size;
S2.WriteBuffer( aBiggerVar, 4 );
Filename := copy( deinPfadzurDatei, length( ExtractFilePath(deinPfadzurDatei) )+1, length(deinPfadzurDatei) - length( ExtractFilePath(deinPfadzurDatei) ) );
aBiggerVar := length( Filename );
S2.WriteBuffer( aBiggerVar, 4 );
S2.WriteBuffer( Pointer(Filename)^, aBiggerVar * SizeOF(Char) );
S.Seek( 0, soFromBeginning );
S2.CopyFrom( S, S.Size );
S.Free;
DeinClient.Socket.SendStream( S2 );
except
if Assigned(S) then
  S.Free;
S2.Free;
end;