1:

showmessage(edit1.text);                    

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

var aEdit: TEdit;
    i: integer;
    anzahl: integer;
begin
 anzahl:= Random(20);

 for i:= 0 to anzahl do
 begin
  showmessage(inttostr(anzahl));
  aEdit:= TEdit.Create(nil);
  aEdit.Parent:= self;
  aEdit.Name:= 'Edit'+inttostr(i);
  aEdit.Text:= 'Test'+inttostr(i);
  aEdit.SetBounds(100,12+i*(aEdit.Height+4),aEdit.Width,aEdit.Height);
 end;                    

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

Edit:= TEdit.Create(self);
  Edit.Parent:= self
  Edit.Name:= 'Edit1';
  Edit.Text:= 'Test';
  Edit.Left:= 114;
  Edit.Top:= 48;
  Edit.Height:= 20;
  Edit.Width:= 177;                    

1:

showmessage(Edit1.Text);                    

1:

showmessage(TEdit(FindComponent('edit1')).text);                    

1:

showmessage(Edit1.Text);                    

1:

  Showmessage(Edit.Text);                    

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

Procedure TMyForm.OnPanelClick (Sender : TObject);
Begin
(*
  If Sender is TPanel Then
    If TObject (TPanel(Sender).Tag) is TPanel Then
*)
  TPanel(TPanel(Sender).Tag).Visible := True;
End;                    

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

private
  FEditControls: TDictionary<Integer,TEdit>;
...
  FEditControls := TDictionary<Integer,TEdit>.Create;
  FEditControls.Add(900344, NewEdit);
  FEditControls.Add(100, NewEdit);
...
  FEditControls[900344].Text := '90';
...                    

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

procedure TForm1.Panel_Setup_Click(Sender: TObject);
var
  Dummy_String: string;
begin

  { Korrekte Setup-Seite anzeigen }
  if TControl(Sender).Parent is TPanel then
    Dummy_String := (TControl(Sender).Parent).Name;
  Dummy_String := Copy(Dummy_String, Pos('_', Dummy_String) + 1, Length(Dummy_String));

  if FindComponent('Panel_Setup_' + Dummy_String) is TPanel then
  begin
    TPanel(FindComponent('Panel_Setup_' + Dummy_String)).BringToFront;
    TPanel(FindComponent('Panel_Setup_' + Dummy_String)).Visible := True; //nur für den Fall, dass eins aus Versehen auf Visible false steht
  end;
  { Korrekte Setup-Seite anzeigen }

end;                    

1:

showmessage(TEdit(FindComponent('edit1')).text);                    

1:

showmessage(Edit.text);                    

1:
2:

  Edit.Name:= 'Edit1';
  Edit.Text:= 'Test';  // hier müsste doch dann Edit1.Text stehen ??                    

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

type
    TUserControls = record
        L_Feld1: TLabel;
        E_Feld1: TEdit;
        L_Min: TLabel;
        E_Min: TMaskEdit;
        L_Max: TLabel;
        E_Max: TMaskEdit;
        L_Irgendwas: TLabel;
        C_Irgendwas: TCombobox;
    end;

var
    UserControls: array of TUserControls;                    

1:

UserControls[X].E_Max.Value := '12,5';