Dateiname<>Übergabe Client<->server

[Vader]

hallo

hab da einen server und einen client (socks)
jetzt kann der client den server einen befehl schicken,
das der server eine bestimmte datei den client sendet
aber der hacken an der sache ist,diese bestimmte datei
steht im programmcode des servers.

jetzt möchte ich aber das der client den server sagt welche
datei er senden soll !!!


server

Code:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var orders : string;


begin
  orders := socket.ReceiveText;

   if orders = 'schicke' then                        
  begin
   Socket.SendStream(TFileStream.Create('c:\aa.txt', fmOpenRead or fmShareDenyWrite));
  end;

  end;

client

Code:

procedure TForm1.BefehlClick(Sender: TObject);
var orders : string;

begin

if Checkbox14.Checked = True then
  begin
    orders := 'schicke';
    Clientsocket1.Socket.SendText(orders);
  end;

wie könnte man das lösen

für jeden progammschnipsel wäre ich sehr dankbar


mfg vader