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;