Highlight-Erkennung: Fehler ! Wo ?

[rebugger]

Delphi-Quellcode:

procedure TMain.GetDroppedFileNames(var msg : TWMDropFiles);
var
  sFileName,extension: string;
  dwFileCount,i,dwReqdLength: cardinal;
  code: TSynMemo;
begin
  dwFileCount := DragQueryFile(msg.Drop,$FFFFFFFF,nil,0);
  for i := 0 to dwFileCount - 1 do
    begin
      dwReqdLength := DragQueryFile(msg.Drop,i,nil,1);
      sFileName    := StringOfChar(#00,dwReqdLength+1);
      DragQueryFile(msg.Drop,i,PChar(sFileName),dwReqdLength+1);

      code_count := code_count+1;
      newCode(code_count,sFileName, 'open');

      code := ActiveCode();
      extension := ExtractFileExt(sFileName);

      if Pos(extension,PHPhigh.DefaultFilter) > 0 then
        code.Highlighter := PHPhigh
      else if Pos(extension,HTMLhigh.DefaultFilter) > 0 then
        code.Highlighter := HTMLhigh
      else if Pos(extension,CSShigh.DefaultFilter) > 0 then
        code.Highlighter := CSShigh
      else if Pos(extension,SQLhigh.DefaultFilter) > 0 then
        code.Highlighter := SQLhigh
      else if Pos(extension,PERLhigh.DefaultFilter) > 0 then
        code.Highlighter := PERLhigh
      else if Pos(extension,JShigh.DefaultFilter) > 0 then
        code.Highlighter := JShigh
      else
        code.Highlighter := Nil;
    end;
end;

Der stellt mir, egal welcher Dateityp Highlighter auf Nil !
.DefaultFilter ist bei allen gefüllt !
Ich habe mir alles mal per MessageDlg() anzeigen lassen !
Defaultfilter ist folgendermaßen bei PHPhigh aufgebaut:

Code:

.php.php3.php4.phtml.inc

Wenn ich nun per Drag&Drop eine .php-Datei reinziehe, macht er keinen Highlighter !
Obwohl er richtig auswählt ! Das wundert mich...