Kann das sein das das garnicht gehen kann
Delphi-Quellcode:
while i <= ServerForm._AllLicenses.Count-1 do
begin
y:=0;
Lizenz:=ApplicationName+'\'+ServerForm._AllLicenses.Strings[i];
while y <= ServerForm._BlockedLicenses.Count -1 do
begin
if Lizenz=ApplicationName+'\'+ServerForm._BlockedLicenses.Strings[y] then
begin
Wenn in "Lizenz" der ganze Pfad der Lizenz drin ist und in ServerForm._BlockedLicenses.Strings[y] nicht wird er nie eine Geblock Lizenz finden oder