type
  magazines = (zr, im, kt, doc, li, kp, mk, rg, so, aif);
  Post = record
    FIO: string;
    Address: string;
    magazine: set of magazines;
  end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  G: post;

begin
  G.FIO:=edit1.text;
  G.Address:=edit2.text;
  G.magazine:=[];
  if CheckListBox1.Checked[0] then
    G.magazine:=G.magazine+[zr];
  if CheckListBox1.Checked[1] then
    G.magazine:=G.magazine+[im];
  if CheckListBox1.Checked[2] then
    G.magazine:=G.magazine+[kt];
  if CheckListBox1.Checked[3] then
    G.magazine:=G.magazine+[doc];
  if CheckListBox1.Checked[4] then
    G.magazine:=G.magazine+[li];
  if CheckListBox1.Checked[5] then
    G.magazine:=G.magazine+[kp];
  if CheckListBox1.Checked[6] then
    G.magazine:=G.magazine+[mk];
  if CheckListBox1.Checked[7] then
    G.magazine:=G.magazine+[rg];
  if CheckListBox1.Checked[8] then
    G.magazine:=G.magazine+[so];
  if CheckListBox1.Checked[9] then
    G.magazine:=G.magazine+[aif];

end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#3 then Close;
end;