Ansonsten könntest du beim dynamischen Erstellen des TRichedit den TabSheed.Tag den Pointer übergeben.
Delphi-Quellcode:
for r := 1 to s do
begin
TabSheet := TTabSheet.Create(PageControl1);
with TabSheet do
begin
PageControl := PageControl1;
Name := 'ts' + IntToStr(r);
Caption := testStands[r-1];
RichEdit := TRichEdit.Create(TabSheet);
RichEdit.Name:='re'+IntToStr(r);
RichEdit.Parent := TabSheet;
TabSheet.Tag:= Cardinal(RichEdit);//<--
...
Und auslesen kannst du ihn so:
Caption:= TRichEdit(Pointer(pagecontrol1.ActivePage.Tag)).Name;//Print