Hola Olenkaguilar y bienvenido a Club Delphi
Como a todos los que se inician te invitamos a que leas nuestra
guía de estilo.
Seguramente el amigo
Caral haya eliminado el adjunto ya que son tantos los aportes realizados que se le sabe agotar el espacio disponible.
Aunque ignoro cuál fué el código que puso anteriormente Carlos, de este modo también te va a funcionar:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i, r: Integer;
cp : TComponent;
begin
if TryStrToInt(Edit1.Text,r) then
begin
for i:= 1 to 3 do
begin
cp := FindComponent('CheckBox'+IntToStr(i));
if Assigned(cp) and TCheckBox(cp).Checked then
r := r + StrToInt(TCheckBox(cp).Caption);
end;
ShowMessage(Format('El resultado es: %d',[r]));
end;
end;
Si en alguna pasada
Caral lee el hilo y recuerda o aún tiene la otra sugerencia, seguramente te pondrá en conocimiento de ella.
Saludos.