Problem mit einlesen von datei

[Luckie]

Delphi-Quellcode:

var
  sl, sl2: TStringList;
  Loop: Cardinal;
  s: String;
begin
  if OpenDialog1.Execute then
  begin
    sl := TStringlist.Create;
    sl2 := TStringlist.Create;
    try
      sl.LoadFromFile(OpenDialog1.Filename);
      for Loop := 0 to sl.Count - 1 do
      begin
        s := StringReplace(sl.Strings[Loop], ' ', '' [srReplaceAll]);
        sl2.Add(s);
      end;
      sl2.SaveToFile(OpenDialog1.Filename+'.foo');
    finally
      FreeAndNil(sl);
      FreeAndNil(sl2);
    end;
end;

Ungetestet.