Prueba con esto para los edits
Código Delphi
[-]
Procedure Limpiar(Frame:Tframe);
var
I:Integer;
begin
For I:=Frame.ComponentCount-1 downto 0 then
if Components[i] is TEdit then
Tedit(Component[i]).Clear;
end;
Lo mismo lo puedes aplicar para los Frames.