For I := 0 To Self.ComponentCount-1 Do If Self.Components[i] Is TEdit Then (Self.Components[i] As TEdit).Text := '';