// Wenn man bei einer Filelistbox den Filter beispielsweise auf
// mask:='*.bmp'; setzt, werden Dateien mit längeren Extensionen,
// wie z.B. '*.bmpx', trotzdem angezeigt. Will man das unterdrücken,
// kann man den folgenden Code anwenden.

// Getestet mit D4 unter Win98

procedure TForm1.FileListBox1Change(Sender: TObject); 
var 
  x: integer; 
begin 
  with FileListBox1 do begin 
    x := 0; 
    while x < items.count do begin 
      if lastdelimiter('.', items[x]) <> length(items[x]) - 3 
        then items.delete(x) 
      else inc(x); 
    end; 
  end; 
end;