GetFiles und TFilterPredicate

[Willie1]

Moin, Moin,
ich möchte aus einem Ordner nicht rekursiv alle Dateien mit der Endung .fus und der Dateigröße 2932 herausfiltern. Dazu bietet sich TDirectory.GetFiles an.
Ich habe mir mit Hilfe aus Stackoverflow das Folgende entwickelt:

Delphi-Quellcode:

function Filelist(const Path, Mask: string): TStringDynArray;
var
  SizeFilter: TDirectory.TFilterPredicate;
begin
  SizeFilter := function(const Path: string; const SR: TSearchRec): Boolean; //<------
  begin
    Result := SR.Size = 2932;
  end;

  Result := TDirectory.GetFiles(Path, Mask, SizeFilter);
end;

<--- Hier gibt es "Error 2029 Deklaration erwartet aber ; gefunden".
Kennt jemand die Lösung?
Willie.

[DeddyH]

Lass mal in der markierten Zeile das Semikolon weg.

[DieDolly]

Im Original ist das Semikolon auch weg. Warum hast da denn überhaupt erst eins hinzugefügt?
https://stackoverflow.com/questions/...-of-characters

[Willie1]

Ihr habt Recht Leute. Bin's so gewohnt, da gehört ein Semikolon hin - hier aber nicht!
Danke. Willie.