TSearchRec: Merkwürdiger Syntaxfehler bei FindClose

[Drop Table]

Moin,

wollte gerade eine kleine Routine schreiben, und erhalte beim Compilieren überraschender Weise beim FindClose einen [Pascal Fehler] dmTTQVUnit.pas(427): E2010 Inkompatible Typen: 'Cardinal' und 'TSearchRec'

Delphi-Quellcode:

function TdmTTQV.GetAndRunUserSQL : Boolean;
var
  srSQL : TSearchRec;
  FL : TStringList;
//  s : string;
begin
  FL := TStringList.Create;
  FL.Sorted := true;
  try
    if FindFirst(GetWorkDir+'\*.sql', 0, srSQL) = 0 then
      begin
        if LowerCase(srSQL.Name) <> 'generated.sql' then
           FL.Add(srSQL.Name);
        while FindNext(srSQL) = 0 do
          if LowerCase(srSQL.Name) <> 'generated.sql' then
             FL.Add(srSQL.Name);
      end;
  finally
    FindClose(srSQL);
    FL.Free;
  end;
end;

Ich verwende die Turbo Edition 2006/Version 10.0.2558.35231
Könnt ihr euch auf den Fehler einen Reim machen?

Andreas