1:

Edit.Enabled:=Checkbox.Checked;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, TabNotBk, jpeg, Buttons;

type
  TForm1 = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    csa: TCheckBox;
    csb: TCheckBox;
    csc: TCheckBox;
    chc: TCheckBox;
    cha: TCheckBox;
    chb: TCheckBox;
    cwa: TCheckBox;
    cwb: TCheckBox;
    cwg: TCheckBox;
    Image1: TImage;
    Label10: TLabel;
    cf: TCheckBox;
    Label11: TLabel;
    cu: TCheckBox;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    esa: TEdit;
    esb: TEdit;
    esc: TEdit;
    eha: TEdit;
    ehb: TEdit;
    ehc: TEdit;
    ef: TEdit;
    eu: TEdit;
    ewa: TEdit;
    ewb: TEdit;
    ewg: TEdit;
    Panel2: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}





procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if csa.Checked then esa.Enabled:=true;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure Form1.saCheckboxClick(Sender: TObject);
var
  vName: string;
begin
  vName := Copy(TCheckbox(Sender).Name, 1, LastDelimiter('CheckBox', TCheckBox(Sender).Name) - 1);
  //Copy kopiert einen Teilstring aus einem gegebenen String raus und liefert ihn als Ergebnis zurück
  //LastDelimiter liefert die Position in einem String zurück vom letzten Vorkommen im String, also in dem Fall die Position, an der "Checkbox" steht
  //vName hat dann in unserem Beispiel die Zeichenkette 'sa'

  TEdit(FindComponent(vName + 'Edit')).Enabled := TCheckBox(Sender).Checked;
  //FindComponent findet die zum Namen zugehörige Komponente und liefert sie als TObject zurück, so dass du sie noch entsprechend casten musst.

  //Sender ist das Objekt, von dem das Ereignis ausgelöst wurde, also die Checkbox, auf die geklickt wurde.
end;					

1:
2:
3:
4:
5:
6:
7:

procedure Form1.saCheckboxClick(Sender: TObject);
var
  Component: TComponent;
begin
  Component := FindComponent(StringReplace('Checkbox', 'Edit', TComponent(Sender).Name));
  if Assigned(Component) Then Component.Enabled := TCheckBox(Sender).Checked;
end;