procedure clear_Edits;
var
cnt :  integer;
begin
for cnt := 0 to ComponentCount - 1 do
begin
if  Components[cnt].ClassName = 'TEdit'  then
TEdit(Components[cnt]).Clear
end;