过程的参数能不能用自己定义的类型？

大哥们：
 我的过程的参数的类型是自己定义的类型，代码如下：
type
Trecord=record
             questiondesc:shortstring;
             answer:shortstring;
             option:shortstring;
             useranswer:string;
             correct:boolean;
             score:integer;
             end;
var
  KPquestionform: TKPquestionform;
  danxuanrecord:Trecord;
  duoxuanrecord:Trecord;
  panrecord:Trecord;
  tianrecord:Trecord;
procedure TKPquestionform.recordtostructure(recordtype:Trecord);
var
number:integer;
tablename:string;
begin
if (QuestionType=1)then
tablename:='danxuan';
if (QuestionType=2)then
tablename:='duoxuan';
if (QuestionType=3)then
tablename:='tian';
if (QuestionType=4)then
tablename:='pan';
number:=recordarray[QuestionType,Knowledgepoint,nownumber[QuestionType,Knowledgepoint]];
recordtype.questiondesc:=getrecord(number,'QuestionDesc',tablename);
recordtype.answer:=getrecord(number,'Answer',tablename);
//recordtype.option:=getrecord(number,'Option');
recordtype.useranswer:='';
recordtype.correct:=false;
recordtype.score:=0;
describeM.Clear;
describeM.Lines.Add(recordtype.questiondesc);
if (recordtype=danxuanrecord)then
 begin
  recordtype.option:=getrecord(number,'Option',tablename);
  describeM.Lines.Add(recordtype.option);
  answerDAX.ItemIndex:=-1;
 end;
if (recordtype=duoxuanrecord)then
 begin
  recordtype.option:=getrecord(number,'Option',tablename);
  describeM.Lines.Add(recordtype.option);
  anduxA.Checked:=false;
  anduxB.Checked:=false;
  anduxC.Checked:=false;
  anduxD.Checked:=false;
 end;
if (recordtype=panrecord)then//他说我数据类型不匹配
 begin
  answerPAN.ItemIndex:=-1;
 end;
if (recordtype=tianrecord)then
 answerTK.clear;end;