i:integer;
begin
  for i:=1 to componentcount-1 do
    if components[i] is tedit then
    (components[i] as tedit).Text :='';
  close;
end;