在Form中查找组件，解决马上给分

Question

在一个Form上有一个组件，如一个DBEdit
我知道了它的Name，name是一个变量，
我如何调用它，或给它赋值。

Answer 1

function FindComponent(const AName: string): TComponent;

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls;type
  TForm1 = class(TForm)
    DBEdit1: TDBEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var name:TDBEdit;
begin
  name := TDBEdit(self.FindComponent('dbedit1'));
  name.Text := '找到了';end;end.

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls;type
  TForm1 = class(TForm)
    DBEdit1: TDBEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var name:TDBEdit;
begin
  name := TDBEdit(self.FindComponent('dbedit1'));
  name.Text := '找到了';end;end.