Создавая поле, присваивай ему уникальное имя Name и обращайся к нему по имени
procedure TForm1.Button2Click(Sender: TObject);
var x : TEdit;
begin
x := TEdit.Create(self);
x.Name := 'Edit1';
x.Parent := self;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
TEdit(FindComponent('Edit1')).Text := 'I''ve found you!';
end;