Beliebig viele Datein erstellen

[CazperFuture]

Hallo Community,
ich möchte eine Program erstellen mit dem man z.b. 10 Datein in einem Verzeichnis erstellen kann.
Diese Datein müssen alle einen unterschiedlichen Namen haben, es wäre am besten wenn sie z.b. so benannt werden:
text1.txt, text2.text...

Das ist mein Code, leider funktioniert er nicht

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
sl : TStringlist;
begin
for sl:= 1 to 10 Do
sl := TStringlist.Create;
try sl.Add('@echo off');
    sl.Add('pause');
    sl.SaveToFile('C:\test2.bat');
    finally
    sl.Free;
    end;
end;

end.

Ich hoffe ihr versteht mein Problem

Danke für eure Antworten