Strings subtrahieren?

[Pitch-Bull]

Code:

procedure TForm1.Playlistffnen1Click(Sender: TObject);
var
Playlistopen:TFileName;
begin
  if (OpenDialog1.Execute) then
    begin
      Playlistopen := ExtractFileName(OpenDialog1.FileName);
     // Playlistopen:=OpenDialog1.FileName;

      ListBox1.items.LoadFromFile(Playlistopen);
    end;
end;