Sumar con Checkbox

[ecfisa]

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 [-]
// Tus CheckBox se deben llamar: CheckBox1, CheckBox2 y CheckBox3
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.