如何用记录类型做函数或过程的参数

Question

procedure TForm1.Button1Click(Sender: TObject);
 type r1=record
   t1:string[10];
   t2:integer;
 end;
 pr1=^r1;
 function test(p:pr1):integer;
 begin
 if (p^.t1='a') and (p^.t2 =2)  then
 showmessage('hello');
 test:=0;
 end;
var p:pr1;
begin
  new(p);
  p^.t1 :='a';
  p^.t2 :=2;
  test(p);
  dispose(p);
end;

Answer 1

to outer2000(天外流星): 呵呵，我没说清楚。我的意思是：在定义过程 procedure newhandle(str1,str2,str3:string;i,j:integer);str1,str2,str3:string;i,j:integer可不可以作为一个记录record_1就是  procedure newhandle(record_1);请继续给予帮助。