Как передать параметр




function Dozvon2_( var Memo: TMemo; Nam: String ):Integer;
^^^^^^^^^^^^


Procedure RasCallback(msg: Integer; state: TRasConnState;
error: Integer); stdcall;
Begin
MyDialParam.AMsg:=msg;
MyDialParam.AState:=state;
MyDialParam.AError:=error;
//frmMain.Memo1.Lines.Add(


Ошибка
Memo.Lines.Add(
^^^^^^^^^^^
GetStatusString( MyDialParam.AState,MyDialParam.AError ) );
Memo.Update;
^^^^^^^^^

End;

Выдает ошибку access violetion


_____________________________