お世話になりました、出来ました！

　こんな感じで再帰的に処理することにしました。
　　↓
　procedure MyClear(pControl:TWinControl);
　var
　　　i:integer;
　　　wCompo:TComponent;
　begin
　　　for i:=0 to pControl.ComponentCount - 1 do
　　　begin
　　　　　wCompo:=pControl.Components[i];

　　　　　if (wCompo is TFrame) then
　　　　　　　MyClear(wCompo as TFrame);

　　　　　if (wCompo is TEdit) then
　　　　　　　(wCompo as TEdit).Text:='';
　　　end;
　
　end;

今までのScreen.ActiveFormで作っていた物にoverloadして差し替える事にします。
本当にありがとう御座いました。