Showing multiple checkbox, delphi - delphi

Question

I have 6 checkbox with edittext at each of checkbox.
I want to show only the selected checkbox with its edittext value in memo.
Here is my code:
//jumCheck is total of selected checkbox
for I := 0 to jumCheck - 1 do
begin
if CheckBox1.Checked then
begin
Memo1.Lines.Append('Gejala: '+CheckBox1.Caption+', Penyakit: '+Edit1.Text);
end
else if CheckBox2.Checked then
begin
Memo1.Lines.Append('Gejala: '+CheckBox2.Caption+', Penyakit: '+Edit2.Text);
end;
end;
And the result is just the first checkbox that i was selected for looping.
Anyone, please help me.

Answer 1

Probably, you need TRadioButtons instead...
Here is the code for dynamically created TEdits and TCheckBoxes:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
const
ElementsCount = 6;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
chba: array [1 .. ElementsCount] of TCheckBox;
eda: array [1 .. ElementsCount] of TEdit;
procedure CBClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i: byte;
begin
for i := 1 to ElementsCount do
begin
chba[i] := TCheckBox.Create(self);
chba[i].Tag := i; //you can change the code of CBClick
//and know out the sender easier by Tag property
chba[i].Top := (i - 1) * 30 + 1;
chba[i].Left := 1;
chba[i].Caption := 'Some caption ' + inttostr(i);
chba[i].Parent := self;
chba[i].OnClick:= CBClick;
eda[i] := TEdit.Create(self);
eda[i].Top := (i - 1) * 30 + 1;
eda[i].Left := 100;
eda[i].Text := '';
eda[i].Parent := self;
end;
end;
procedure TForm1.CBClick(Sender: TObject);
var
i: byte;
begin
Memo1.Text := '';
for i := 1 to ElementsCount do
begin
if chba[i].Checked then
begin
Memo1.Lines.Append(chba[i].Caption + ' ' + eda[i].Text);
exit;//??? In this case only the first checked will be processed
//Probably, you need TRadioButton's instead
end;
end;
end;
end.

Answer 2

Your code has a few problems:
Using else skips all checkboxes after the first selected checkbox
There is no point in combining for and a list of if-statements. If you have a if-statement for every checkbox, what do you want to iterate with the for over?
Your for starts with 0, but the first checkbox seems to be CheckBox1 (generally it would be better to use more descriptive names)
What you seem to be looking for is the method FindComponent to find a component of a certain name or index.
E.g. it becomes
for I := 1 to jumCheck do
begin
if (FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Checked then
begin
Memo1.Lines.Append('Gejala: '+(FindComponent('CheckBox' + IntToStr(i)) as TCheckBox).Caption+', Penyakit: '+(FindComponent('Edit' + IntToStr(i)) as TEdit).Text);
end
end;