Probleme beim String einlesen und übergeben

[Luckie]

Delphi-Quellcode:

procedure GetKeys;
var
  s: string;
  Outro: string;
  f: textfile;
  CoD: string; // 21
begin
  try
    s := 'c:\boot.ini'; GetValueFromReg(HKLM,
      'SOFTWARE\Activision\Call of Duty\', 'InstallPath');
    if s <> '' then
    begin
      KeyPath := s; // + '\main\codkey';
      AssignFile(F, KeyPath);
      Reset(F);
      while not EOF(F) do
      begin
        ReadLn(F, s);
        CoD := s;
     // writeln(s)
      end;
      CloseFile(F);
      //writeln(cod);
    end;

    Outro := 'Harvester Server v0.4 (c) AGM65 Maverick - [url]www.rnsys.de[/url] -';

    ALLGAMES := CoD;
    if allgames <> '' then ALLGAMES := CoD + Outro;
    if allgames = '' then
      ALLGAMES :=
        'No CD Keys found! Harvester Server v0.4 (c) AGM65 Maverick - [url]www.rnsys.de[/url] -';
    writeln(ALLGAMES); // Text ausgeben
    readln; // noch ne zeile lesen, damit das fenster nicht sofort wieder zugeht!
  except
  //showmessage('mach nix')
  end;
end;

So zeigt er mir nur die letzte zeile in der Datei an mit deinem Outro, wie es aich sein soll.