호출부에서
unit1
var
  Form1: TForm1;
  m_Code: String;
  m_Name: String;
  m_Price: Integer;

procedure TForm1.DoDataExchange(flag: Boolean);
begin
    dx.DDX(flag,@txtCode,m_Code); <====이부분에서 에러가 남니다.
    dx.DDX(flag,@txtName,m_Name);
    dx.DDX(flag,@txtPrice,m_Price);
end;

---------------------------------------------------------------------

프로시저부
unit2

procedure TDoDataExchange.DDX(flag: Boolean; aObj: Pointer; var variable: variant);
begin
    If flag = True then
    begin
        case varType(variable) of
        varInteger       : variable := StrtoInt(TEdit(aObj^).Text);
        varString        : variable := Trim(TEdit(aObj^).Text);
    end;
end;
---------------------------------------------------------------------

에러종류
[Error] Unit1.pas(53): Types of actual and formal var parameters must be identical

variant형은 참조형으로 넘길수 없나요?.
없다면 unit2에서 unit1의 변수에 자료형(integer,string....)을 알수 있는 방법은 없나요?

고수님들의 조언 부탁드립니다...
꾸벅.