funktion (simpel) multithreaded?

[Van HelF]

Hallo,
ich habe folgenede funktion:

Delphi-Quellcode:

  function profil_exists(pfad:string):boolean;
  begin
    if ((fileexists(datei1) and (fileexists(datei2)) then result:=true
      else result:=false;
  end;

  procedure TForm1.Button1Click(Sender: TObject);
  var i:integer; 
  begin
    for i:=0 to memo1.Lines.Count-1 do
    begin
      if profil_exists(memo1.Lines.Strings[i]) then memo1.Lines.Strings[i]:=memo1.Lines.Strings[i]+' OK'
        else memo1.Lines.Strings[i]:=memo1.Lines.Strings[i]+' FEHLER';
    end;
end;

da ich recht viele dateien zu prüfen habe, möchte ich das ganze gerne mit mehreren aufrufen parallel machen, nur habe ich leider keine ahnung, wie ich dies anstellen könnte, die beiträge im forum haben mich mehr verwirrt, als mir geholfen.
Gibt es dafür einen einfachen ansatz?

[Luckie]

Der einfache Ansatz heißt Threads. Und hier habe ich ein Tutorial dazu.