1:
2:

For i := 1 to 53 do
 DBEdit[i].Readonly := False;					

1:

DBEdit: array of TDBEdit;					

1:

DBEdit[5]:=DBEdit5;					

1:
2:

if Form.Components[i] is TDBEdit then
  (Form.Components[i] as TDBEdit).ReadOnly := true;					

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

var
i : Interger;
XEdit: Array[1..11] of TEdit;
XDBEdit : Array81..11] of TDBEdit;
begin
XEdit[1] := Edit1;
XDBEdit [1] := DBEdit1;
//usw.
For i:= 1 to 11 do
begin
XEdit[i].Top := XDBEdit[i].Top;
XEdit[i].Left := XDBEdit[i].Left;
XEdit[i].Height := XDBEdit[i].Height;
XEdit[i].Width := XDBEdit[i].Width;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
 for i:=0 to ComponentCount-1 do
  if Components[i] is TEdit then
   if (Components[i] as TEdit).Tag = 1 then
    (Components[i] as TEdit).Color := clRed;
end;					

1:
2:
3:
4:
5:

type
  TEditPair = record
    DBEdit: TDBEdit;
    Edit: TEdit;
  end;					

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

for i := 0 to Paarliste.Count - 1 do
  begin
    Pair := Paarliste[i];
    Pair.Edit.Left := Pair.DBEdit.Left;
    Pair.Edit.Top := Pair.DBEdit.Top;
    (* usw. usf. *)
  end;					

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:

type
  TEditPair = record
    DBEdit: TDBEdit;
    Edit: TEdit;
  end;
  
  TDeinForm = class(TForm)
  private
    FEditPairs: array of TEditPair;
    procedure InitializeEditPairs;
    ...
  end;
  
...

procedure TDeinForm.InitializeEditPairs;
var
  i: integer;
begin
  SetLength(FEditPairs, 10);
  for i := 1 to 10 do
    begin
      FEditPairs[i - 1].DBEdit := FindComponent(Format('DBEdit%d', [i])) as TDBEdit;
      FEditPairs[i - 1].Edit := FindComponent(Format('Edit%d', [i])) as TEdit;
    end;
end;					

1:

FEditPairs[i - 1].DBEdit := FindComponent('DBEdit' + IntToStr(i)) as TDBEdit;