Script In Dialog Report : CheckListBox OK! happy

var
ds: TfrxDataSet;
procedure CheckListBox1OnClick(Sender: TfrxComponent);
var i : integer;
begin
    Memo13.lines.clear ;
    for i := 0 to CheckListBox1.items.Count - 1 do
    begin
        if CheckListBox1.Checked[i] = true then
        begin
            Memo13.lines.add(checklistbox1.Items.Strings[i]);
        end;
    end;
end;
procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
    if
    Pos(<city."CountryCode">,Memo13.Lines.Text) >= 1
    Then MasterData1.Visible := True Else MasterData1.Visible :=False ;
end;
procedure GroupHeader1OnBeforePrint(Sender: TfrxComponent);
begin
    if
    Pos(<city."CountryCode">,Memo13.Lines.Text) >= 1
    Then GroupHeader1.Visible := True Else GroupHeader1.Visible :=False ;
end;
procedure GroupFooter1OnBeforePrint(Sender: TfrxComponent);
begin
    if
    GroupHeader1.Visible = true
    Then  GroupFooter1.Visible := True Else  GroupFooter1.Visible :=False ;
end;
procedure BitBtn2OnClick(Sender: TfrxComponent);
Var
i : Integer ;
begin
    Memo13.lines.clear ;
    begin
        for i := 0 to CheckListBox1.items.Count - 1 do
        CheckListBox1.Checked[i] := true ;
    end;
    begin
        for i := 0 to CheckListBox1.items.Count - 1 do
        begin if CheckListBox1.Checked[i] = true then
            begin
                Memo13.lines.add(checklistbox1.Items.Strings[i]);
            end;
        end;
    end;
end;
procedure BitBtn3OnClick(Sender: TfrxComponent);
Var
i : Integer ;
begin
    Memo13.lines.clear ;
    begin
        for i := 0 to CheckListBox1.items.Count - 1 do
        CheckListBox1.Checked[i] := False ;
    end
end;
begin
    ds := Report.GetDataset('country');
    while not ds.eof do
    begin
        CheckListBox1.Items.Add( ds.Value('ccode') );
        ds.Next;
    end;
end.