Speicher zu wenig

[WinAPI]

Hallo,
Ich habe ein kleines programm programmiert, es soll dateien aus einem ordner auslesen (Schriftarten)
und in einem Memo In der Form 'Dateiname;Schriftart-Name' ausgeben.
Dies funktioniert auch. Allerdings will mein Vater dies mit 13000 Schriftarten machen, Allerdings stürzt es da ab..

Delphi-Quellcode:

function FindAllFiles(RootFolder: string; Mask: string; Recurse: Boolean):Boolean;
var
  SR: TSearchRec;
  i:Integer;

begin
  RootFolder := IncludeTrailingPathDelimiter(RootFolder);

  if Recurse then
    if FindFirst(RootFolder + '*.*', faAnyFile, SR) = 0 then
    try
      repeat
        if SR.Attr and faDirectory = faDirectory then
          if (SR.Name <> '.') and (SR.Name <> '..') then
            FindAllFiles(RootFolder + SR.Name, Mask, Recurse);
      until FindNext(SR) <> 0;
    finally
      FindClose(SR);
    end;
  if FindFirst(RootFolder + Mask, faAnyFile, SR) = 0 then
  try
    repeat
      if SR.Attr and faDirectory <> faDirectory then
      begin
        //FileList.Add(RootFolder + SR.Name);
        Main.Form1.Memo1.Lines.Add(SR.Name+';'+GetTypeFaceName(RootFolder+SR.Name)); //GettypeFaceName ist für den Schriftartname 
      end;
    until FindNext(SR) <> 0;
  finally
    FindClose(SR);
  end;

end;

Kann mir irgendwer helfen ? =)