Mega Code Archive
[] Clear all edit controls on your form
<![CDATA[
The shortest way to do this:
procedure TForm1.ClearAll;
var
i : integer;
begin
for i := 0 to ComponentCount-1 do
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text := '';
end;
]]>