Zeilen mit Stringliste bis zu bestimmten Zeichen auslesen

[DragonsTear]

Delphi-Quellcode:

procedure TForm1.Oeffnen1Click(Sender: TObject);
begin
OpenDialog.Options := [ofFileMustExist];
  if OpenDialog.Execute
     then try
            Textdatei := CreateStrings((OpenDialog.FileName),'|');
            ExtractNames(Textdatei,ItemListe);
            Itemnamen.Items.Assign(ItemListe);
          except
            Application.MessageBox ('Datei konnte nicht geladen werden!',
              'Fehler', MB_OK);
          end;
end;

Hm, wollte jetzt erstmal guggen wies und ob es funktioniert... Das Problem ist, dass er mir bereits hier sauber abschmiert...
Die Stringliste ItemListe wird in OnCreate kreeiert...

Wo ist der Fehler? Hängt es mit OpenDialog.Filename zusammen?