뭘 하고 싶으세요? 이름으로 컴포넌트 찾기? 아님 TEdit를 모두 찾아서 뭔가 하기???

이런식으로 하부 컴퍼넌트 까지 검색하시려는 건가요.

그래서 처음에 호출시 Read(Form1); 폼이름을 주거나 특정 컴포넌트를 주면, 그 아래 아래를 트리 처럼 검색하는 건지요... 

procedure Read(Component: TComponent);
var
  i: Integer;
begin

   if Component is TEdit then begin

        .....
   end;

  for i := 0 to Component.ComponentCount - 1 do 

       if (Component.Components[i].ComponentCount > 0) then //속도를 위해 넣어도 안넣어도..

           Read(Component.Components[i]);
end;

홍성락님께서 알려주신 방법대로 하시면 되는데요...

var
  ParamList: TStringList;
  ...
  procedure Read(Component: TComponent);
  var
    Index: Integer;
  begin
    if Component is TUniQuery then
    begin
      SetTitle(Component.ClassName, TUniQuery(Component).SQL.Text, TUniQuery(Component).Params) + #13#10#13#10#13#10;
      ParamList.Clear;
    end;
    for Index := 0 to Component.ComponentCount - 1 do
      Read(Component.Components[Index]);
  end;
begin
  ParamList := TStringList.Create;
  try
    Read(Self);
  finally
    ParamList.Free;
  end;
  SQLForm.SQLTextFrame.edtSQLText.Text := SQLText;
  SQLForm.Show;
end;

 ParamList는 어디에 쓰이는지 모르겠음...