Fórum Edits numero dentro #443441

Tenta assim

procedure TForm1.Coloca0;
var
i : integer;
begin
for i:=0 to Form1.ComponentCount-1 do
begin
if Form1.Components[i] is TEdit then
(Form1.Components[i] as TEdit).text := '0';
if Form1.Components[i] is TMaskEdit then
(Form1.Components[i] as TMaskEdit).text := '0';
end;
end;

ai coloca no formshow

procedure TForm1.FormShow(Sender: TObject);
begin
Coloca0;
end;