Textdatei nach bestimmten Begriff durchsuchen

[N30N]

Okay, der erste Teil war vielleicht etwas verwirrend oder sogar komplett falsch ^^

Also nochmal:

Ich habe 100 Text-Dateien, es geht von 1 los und endet bei Datei Nr 100. Ich möchte jede dieser Dateien nach einem bestimmten Begriff durchsuchen und anschliesend den Dateinamen in einem Memofeld ausgeben.

Das klappt jetzt sogar, allerdings unterscheidet die Funktion pos zwischen Groß und Kleinschreibung wie mir scheint.

Delphi-Quellcode:

procedure TForm5.SuchestartenClick(Sender: TObject);
var
    StringList : TStringList;
    s : string;
    i : byte;
begin
  memo1.clear;
  for i := 1 to 100 do
    begin
      StringList := TStringList.Create;
      try
        StringList.LoadFromFile('\\Server\Datenbank\' + inttostr(i) + '.txt');
        s := StringList.Text;
        if pos(edit1.text, s) > 0 then
        memo1.lines.add (inttostr(i));
      finally
        StringList.free;
      end;
    end;
end;

Könnte mir noch einer verraten wie ich die Unterscheidung ausschalte? ^^