에구, ^^ 님 답변중에 수정할 부분이 있어서 글을 올립니다.

pascal에도 포인터형이 있습니다.

(아래 예제는 Object Pascal Language Guide에서 가져왔습니다.)

var
X,Y : Integer;  // X and Y are Integer variables
P: ^Integer;    // P points to an Integer
begin
X := 17;        // assign a value to X
P := @X         // assign the address of X to P
Y := P^         // dereference P; assign the result to Y
end;


^^ 님이 쓰신 글 :
: pointer로 정의해 보세요.
: 참고로 C++ Builder 내에서는 클래스를 직접적으로 정의하여 사용하는 방식이 아니라 포인터를 이용한 접근방식을 사용하거든요. 그리고 pascal에서는 pointer형이 없습니다.
:
: TMessageItem *mi;    <= 이렇게...
:
:
:
: 홍지곤 님이 쓰신 글 :
: :
: : 델파이에서 이렇게 선언 된 것을 빌더로 고치는 중인데 한가지 막히는
: : 부분이 있습니다.
: :
: : procedure TMainForm.MsgSimulator1StopRecord(Sender: TObject);
: : var
: :    i  : integer;
: :    mi : TMessageItem;   <------------- 막히는 부분
: :    s  : string;
: : begin
: :    StopBut.Enabled := False;
: :
: :    for i := 0 to MsgSimulator1.Messages.Count-1 do begin
: :       mi := MsgSimulator1.Messages[i];
: :
: :       s := Format('Msg: %3d  X: %4d  Y: %4d  Key: %4.4x  Delay: %4d', [integer(mi.Msg), mi.PosX, mi.PosY, mi.VkKey, mi.Delay]);
: :       Memo1.Lines.Add(s);
: :    end;
: : end;
: :
: : end.
: :
: : //---------------------------------------------------------------------------------
: : void __fastcall TForm1::MsgSimulator1StopRecord(TObject *Sender)
: : {
: :
: :    int i;
: :    TMessageItem mi; ----------->이렇게 했더니 되지 않습니다.
: :    String s;
: :
: :    StopBut->Enabled = False;
: :
: :
: :     for (i=0; i=MsgSimulator1->Messages->Count-1; i++)
: :         mi = MsgSimulator1->Messages[i];
: :         s = Format("Msg: %3d  X: %4d  Y: %4d  Key: %4.4x  Delay: %4d", [int(mi->Msg), mi->PosX, mi->PosY, mi->VkKey, mi->Delay]);
: :         Memo1->Lines->Add(s);
: : }
: :
: : //-----------------------------------------
: :
: : TMessageItem 이게 *.pas에서 *.hpp로 바뀐 것을 보니
: : TCollectionItem 클래스로 되어있는것 같습니다.
: : 어떻게 MsgSimulator1StopRecord 부분에서 선언해야
: : 하는지요? 답변 부탁드립니다.
: :
: : //-- user supplied -----------------------------------------------------------
: :
: : namespace Msgsimulator
: : {
: : //-- type declarations -------------------------------------------------------
: : #pragma option push -b-
: : enum TWMMessage { mmMouseDown, mmMouseUp, mmMouseMove, mmKeyDown, mmKeyUp };
: : #pragma option pop
: :
: : class DELPHICLASS TMessageItem;
: : class PASCALIMPLEMENTATION TMessageItem : public Classes::TCollectionItem
: : {
: :     typedef Classes::TCollectionItem inherited;
: :    
: : protected:
: :     #pragma pack(push, 1)
: :     tagEVENTMSG em;
: :     #pragma pack(pop)
: :    
: :     TWMMessage FMsg;
: :     unsigned FDelay;
: :     int FX;
: :     int FY;
: :     int FKey;
: :     int FHWND;
: :     Controls::TMouseButton FButton;
: :     void __fastcall Fill_EM_From_Props(void);
: :     void __fastcall Fill_Props_From_EM(void);
: :    
: : public:
: :     __fastcall virtual TMessageItem(Classes::TCollection* Collection);
: :     __property int HWND = {read=FHWND, write=FHWND, nodefault};
: :    
: : __published:
: :     __property TWMMessage Msg = {read=FMsg, write=FMsg, nodefault};
: :     __property int PosX = {read=FX, write=FX, nodefault};
: :     __property int PosY = {read=FY, write=FY, nodefault};
: :     __property int VkKey = {read=FKey, write=FKey, nodefault};
: :     __property unsigned Delay = {read=FDelay, write=FDelay, nodefault};
: :     __property Controls::TMouseButton Button = {read=FButton, write=FButton, nodefault};
: : public:
: :     #pragma option push -w-inl
: :     /* TCollectionItem.Destroy */ inline __fastcall virtual ~TMessageItem(void) { }
: :     #pragma option pop
: :    
: : };
: :
: : 이 밑에 부분은 생략
: :
: :
: :
: : //---------------------------------------------
: :
: :
: : 그럼..감사합니다..