Probleme beim String einlesen und übergeben

[agm65]

also wenn der source so ist:

Code:

 s := 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;

dann öffnet er die ganze key file und übergibt nicht den string( erste zeile aus der key file) an den string "cod"...