Probleme beim String einlesen und übergeben

[Luckie]

Geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  F: Textfile;
  s, NewString: String;
begin
  AssignFile(F, 'c:\boot.ini');
{$I-}
  Reset(F);
{$I+}
  if IOResult = 0 then
  begin
    while not EOF(F) do
    begin
      ReadLn(F, s);
      NewString := s;
      ShowMessage(NewString);
    end;
    CloseFile(F);
  end
  else
    RaiseLastOSError();
end;

Irgendwo musst du noch was falch machen.