[lmikle]

Перебор компонентов.

Код:

For I := 0 To Self.Componentcount-1 Do
 If Self.Components[i] Is TEdit Then
   Memo1.Lines.Add( Self.Components[i].Name + ' вкладка ' + ((Self.Components[i] As TEdit).Parent As TTabSheet).Name + ' значение ' + (Self.Components[i] As TEdit).Text );

Писал сразу здесь, так что могут быть очепятки.