Platzhalter in FindFirst/FindNext

[p80286]

Hallo zusammen,
ich suche (auf einem Serverlaufwerk) Dateien deren erster Buchstabe im Namen H ist also

Delphi-Quellcode:

mask:='H*';
sstring:=mypath;

  sstring:=sstring+mask;
  weiter:=sysutils.FindFirst(sstring, faAnyFile, SearchRec);
  if weiter=0 then begin
    if (searchrec.attr and fadirectory = 0) then
      dl.add(sfill+searchrec.name);
    while weiter=0 do begin
      weiter:=sysutils.FindNext(SearchRec);
      if (weiter=0) and (searchrec.attr and fadirectory = 0) then begin
        dl.add(sfill+searchrec.name);
      end;
    end;{while------------------}
  end;
  sysutils.FindClose(SearchRec);

Das funktioniert nur bedingt, da auch Dateinamen zurück gegeben werden mit '....H...' und nicht nur 'H.......'.
Gut das kann ich filtern mit if Dateiname[1]='H' then .. aber wofür dann die Maske?
(das Programm läuft unter W7)

Mit 'H*.*' ist es das gleiche Ergebnis.



Gruß
K-H