Ich habe mal deine Procedure umformatiert - wegen der Lesbarkeit
Delphi-Quellcode:
procedure TWindow.Button1Click(Sender: TObject);
begin
if filelistbox1.itemindex > -1 then
begin
if schonmal = false then
begin
label2.Visible := true;
filelistbox2.Visible := true;
button2.Visible := true;
end;
try
filelistbox2.Directory := 'tabs/' +(filelistbox1.items[filelistbox1.itemindex]);
except
end;
window.caption := 'Tabs von: ' +(filelistbox1.items[filelistbox1.itemindex]);
end;
end;
Wo der Fehler auftritt, hast du ja schon rausgefunden und mit Try/Except umschlossen. Der nächste Schritt wäre nun einfach mal debuggen gewesen.
Mach einen Brechpunkt auf die Zeile und schau dir mal vorher an, was denn in filelistbox2.Directory steht. Und dann das Ganze nochmal, wenn du einen anderen Interpreten auswählst...