[lmikle]

попробуй так:

Код:

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