[Vocabulary]

На самом деле, коллеги, этот мемо не грех и поискать:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
  T : TTabSheet;
begin
  T := PageControl1.ActivePage;
  for I := 0 to T.ControlCount-1 do
    if T.Controls[i] is TMemo then
      TMemo(T.Controls[i]).Lines.LoadFromFile();
end;