[vinni]

Aristarh Dark, следуя твоему совету, должно работать следующее:

Код:

procedure TfrmPrivMsg.acPrivSendExecute(Sender: TObject);
var
  I: integer;
begin
  for I := 0 to PageControl1.ActivePage.ComponentCount - 1 do
    Memo1.Lines.Add(PageControl1.ActivePage.Components[i].Name);
end;

Т.е. в Мемо1 должны появиться названия всех компонентов формы, и среди них Мемо1 и Мемо2. Но ничего не происходит...