Dieser Code tut meinen Augen weh:
Delphi-Quellcode:
wideshowmessage(ExtractFileExt(Buffer));
if WideSameText(Trim(ExtractFileExt(Buffer)), '.crpu') or WideSameText(Trim(ExtractFileExt(Buffer)), '.crp') or WideSameText(Trim(ExtractFileExt(Buffer)), '.ccr') then
Vielleicht sollte man hier eine Zwischenvariable verwenden!