var EditName: string; EditFound: TComponent; begin EditName := 'Edit1'; EditFound := FindComponent(EditName); if EditFound <> nil then (EditFound as TEdit).Text := 'blah-blah'; end;