Using pagecontrol.pages is obvious. Below is the code I came up with so far.
It doesn't work, of course, but am I at least on the right track?
procedure TForm1.Action3Execute(Sender: TObject);
I, K: Integer;
for K := 0 to PageControl1.PageCount -1 do
for I := 0 to PageControl1.ControlCount - 1 do
if PageControl1.Controls[I] is TMemo then
with TMemo(PageControl1.controls[I]) do
TheFileName := PageControl1.Pages[K].Hint;
Thanks for your help