Trieda TComponent má funkciu FindComponent, ktorá hľadá vo svojich komponentoch komponent s daným menom. Príklad ukazuje ako nájst Edit s daným menom.

function GetEdit(i : integer) : TEdit;
var
  cmp : TComponent;
begin
  Result := nil;
  cmp := FindComponent('Edit' + IntToStr(i));
  if (cmp <> nil) then
    Result := (cmp as TEdit);
end;