constructor TMyDialog.Init(aParent: PWindowsObject; aTitle: PChar); var tmpStatic : PStatic; tmpButton : PButton; begin TDialog.Init(aParent, aTitle); tmpStatic := New(PStatic,Init(@self,-1,'Date:', 5, 10,85,40,6)); tmpStatic := New(PStatic,Init(@self,-1,'Check ID:', 200, 10,85,40,9)); tmpStatic := New(PStatic,Init(@self,-1,'Amount:', 5, 45,85,40,7)); tmpStatic := New(PStatic,Init(@self,-1,'Pay To:', 5, 80,85,40,7)); tmpStatic := New(PStatic,Init(@self,-1,'Comment:', 5, 115,85,40,8)); Date := New(PEdit,Init(@self, id_Dlg_Date,'', 90, 10,100,30, 40,false)); ID := New(PEdit,Init(@self, id_Dlg_ID,'', 290, 10,150,30,40,false)); Amount := New(PEdit,Init(@self, id_Dlg_Amount,'', 90, 45,350,30,40,false)); PayTo := New(PEdit,Init(@self, id_Dlg_PayTo, '', 90, 80,350,30,40,false)); Comment := New(PEdit,Init(@self, id_Dlg_Comment,'',90,115,350,30,40,false)); tmpButton := New(PButton,Init(@self, id_Dlg_Okay, 'Okay',160,165,60,30,false)); tmpButton := New(PButton,Init(@self, id_Dlg_Cancel, 'Cancel',250,165,60,30,false)); end;