ну как вариант можешь у нужных тебе компонентов (те которые ты будешь скрывать\показывать) поставить свойство
Tag=1. В таком случае твоя функция поска будет иметь примерно такой вид:
Код:
for i := 1 to 10 do
begin
e1:=(FindComponent('Edit'+IntToStr(i)) as TEdit);
e1.Visible:= not e1.Tag=1;
end;