Du könntest zuerst eine Variable für die aktuell sichtbare Tabelle deklarieren. Vorzugsweise im private-Abschnitt des Formulars, damit du in allen Prozeduren des Formulars darauf zugreifen kannst.
Delphi-Quellcode:
{ Private-Deklarationen }
AktuelleTabelle: TADOTable; (oder welche Komponenten du auch für Tabellen benutzt)
Im OnChange-Ereignis des PageControls kommt dann:
Delphi-Quellcode:
if PageControl.ActivePage=TabSheet1 then AktuelleTabelle:=Datenmodul1.TTeile else
if PageControl.ActivePage=TabSheet2 then AktuelleTabelle:=Datenmodul1.TIrgendwas else
…
Und dann:
Delphi-Quellcode:
procedure TVorlage.AnfangClick(Sender: TObject);
begin
AktuelleTabelle.First;
…
end;