constructor TMyWin.Init(aParent: PWindowsObject; aTitle: PChar);
var
   tmpButton : PButton;
begin
     TWindow.Init(aParent, aTitle);
     myFontBig   := CreateFont(36,0,0,0,700,0,0,0,0,0,0,0,0,'Helv');
     myFontSml   := CreateFont(18,0,0,0,700,0,0,0,0,0,0,0,0,'Helv');
     myBrush := CreateSolidBrush(RGB(128,0,0));

     isDirty := false;
     isSaved := false;
     isNewFile := true;

     Attr.X := 10;
     Attr.Y := 10;
     Attr.W := 400;
     Attr.H := 400;
     Attr.Menu := loadMenu(HInstance, 'MyMenu');
     LB := New(PListBox, Init(@self, id_ListBox, 20,40,340,240));
     LB^.Attr.Style := LB^.Attr.Style - LBS_Sort;
     tmpButton := New(PButton,Init(@self, id_Button_insert,'Insert',35,300,60,30,true));
     tmpButton := New(PButton,Init(@self, id_Button_delete,'Delete',110,300,60,30,false));
     tmpButton := New(PButton,Init(@self, id_Button_edit, 'Edit',185,300,60,30,false));
     tmpButton := New(PButton,Init(@self, id_Button_find, 'Find',260,300,60,30,false));
end;