线程问题，我开十个线程，要执行同一个函数，只是每个线程给函数传的参数不同，如何减少下面程序代码的代码量？

各位前辈好！诚心请教您多线程的写法 如果您有空 请指导一下 谢谢！
假设我做了一个函数
function TForm1.sq(n, p,IP: String): String;
那么怎么多线程同时执行这个函数 要求10线程以上 可否以我这个函数给个简单的演示例子.谢谢!我用的方法是
type
 Tv1 = class(TThread)
 protected
   procedure Execute; override;
 end;
typeprocedure Tv1.Execute;
label 1;
var
...
begin
   inherited;
...
end;然后我写了10线程procedure TForm1.Button1Click(Sender: TObject);
var
 PT1:Tv1;
 PT2:TV2;
 PT3:Tv3;
 PT4:TV4;
 PT5:Tv5;
 PT6:TV6;
 PT7:Tv7;
 PT8:TV8;
 PT9:Tv9;
 PT10:TV10;
begin
 PT1:= Tv1.Create(False);
 PT2:= Tv2.Create(False);
 PT3:= Tv3.Create(False);
 PT4:= Tv4.Create(False);
 PT5:= Tv5.Create(False);
 PT6:= Tv6.Create(False);
 PT7:= Tv7.Create(False);
 PT8:= Tv8.Create(False);
 PT9:= Tv9.Create(False);
 PT10:= Tv10.Create(False);
end;