Haber que te parece esto:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
Label1: TLabel;
Button1: TButton;
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
Check1,Check2,Check3: String;
implementation
{$R *.DFM}
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
If CheckBox1.Checked = True then
Check1 := 'Opción 1'
else Check1 := '';
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
If CheckBox2.Checked = True then
Check2 := 'Opción 2'
else Check2 := '';
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
If CheckBox3.Checked = True then
Check3 := 'Opción 3'
else Check3 := '';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Check1+' '+Check2+' '+Check3
end;
end.
Salud OS