Запутался в связях (Page 2 of 2)

var
...
  arrFrm: array of TAForm = [Form1, Form2, Form3, Form4, Form5];                      // list of Forms

procedure Form1_OnShow (Sender: TObject; Action: string);
begin
  create(Sender);
end;
...
procedure create(Sender: TObject);
var
  tmpP: TdbPanel;
  i: integer;
  tmpMemo: TdbMemo;
...
  tmpForm: TAForm;
begin
     tmpForm := TAForm(Sender);
      if tmpForm.Components[i] is tdbEdit then                                          // Edit
      begin
        tmpEdit := TdbEdit(tmpForm.Components[i]);
        tmpEdit.borderstyle := bsNone;
        tmpP := tdbpanel.create(tmpForm);
        tmpP.name := 'tmp_'+tmpEdit.name;
        tmpP.Caption := '';
        tmpP.Parent := tmpEdit.Parent;
        tmpP.BevelWidth := 0;
        tmpP.SetBounds(tmpEdit.Left, tmpEdit.Top, tmpEdit.Width, tmpEdit.Height);
        tmpP.Anchors := tmpEdit.Anchors;
    //
        tmpEdit.Parent := tmpP;
        TControl(tmpEdit).SetBounds(4, 2, tmpEdit.Width - 8, tmpEdit.Height - 4);
      end;
...
procedure draw;
var                                                                                   // Draw and ReDraw
  i, f: integer;
  tmpPan: TdbPanel;
begin
    for i := 0 to arrFrm[f].componentcount - 1 do
    begin
      if (arrFrm[f].Components[i] is tdbpanel) and (copy(tdbpanel(arrFrm[f].Components[i]).name, 1, 4) = 'tmp_') then
      begin
        tmpPan := TdbPanel(arrFrm[f].Components[i]);
        tmpPan.canvas.brush.color := clWhite;
        tmpPan.canvas.pen.color := clBlack;
        tmpPan.canvas.roundRect(0, 0, tmpPan.width, tmpPan.height, 10, 10);
      end;
    end;
end;
...
procedure onp(Sender: Tobject);                                                       // OnPaint event
begin
  draw;
end;