求救！ 关于类型转换的问题，在线等待

type smtp=record     
       cType:char;               //结构
       agencytype:integer;
       habitus:array[0..5]of char;
       port:integer;
       maxconnect:integer;
    end;
 tsmtp=^smtp;
这是我定义的一个结构
function 
          if(fsappagent.agencytype=1)then
          begin
            strcat(tempuser,'sm');
            strcat(tempuser,'^');
            strcat(tempuser,fsappagent.habitus);
            strcat(tempuser,'^');
            strcat(tempuser,fsappagent.port);
            strcat(tempuser,'^');
            strcat(tempuser,fsappagent.maxconnect);
          end;这是一个函数，tempuser是返回值
在些的时候fsappagent.port,fsappagent.maxconnect会提示不是pchar和integer有冲突
请问我应该怎么把类型转换过来呢？（数据是从后台接受过来的）