procedure TfrmCategory.AdvGlowButton1Click(Sender: TObject);
begin
  ModalResult:= mrcancel;
  CategoryChange:= false;
  close;
end;

procedure TfrmCategory.AdvGlowButton3Click(Sender: TObject);
begin
if (RzEdit1.Text = '')
  then begin
         modalresult:= mrcancel;
         CategoryChange:= false;
         exit;
       end
  else begin
         //form1.ApplyContactChanges(zContactProps);
         modalresult:= mrok;
         CategoryChange:= true;
       end;
  close;
end;
procedure TfrmCategory.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then begin CategoryChange:= false; close; end;
end;
procedure TfrmCategory.FormCreate(Sender: TObject);
begin
  Label1.Caption:= at_pb_cat_text03;
  Label2.Caption:= at_pb_cat_text04;
  Label5.Caption:= at_pb_cat_text05;
  AdvGlowButton1.Caption:= btnCancel;
  AdvGlowButton3.Caption:= btnOk;
end;