Eine Komponente auf einen "X" Form Ansprechen?

[Karstadt]

ich werde euch mein Geheimniss lüften....

Das will ich nicht 20 mal eingeben!

Delphi-Quellcode:

  IF Formularname = 'f_ag' then
  begin
    with f_ag.Tabelle do
    begin
      Close;
      Sql := Sqlabfrage;
      open;
    end;
  end;
  
IF Formularname = 'f_ap' then
  begin
    with f_ap.Tabelle do
    begin
      Close;
      Sql := Sqlabfrage;
      open;
    end;
  end;
  
IF Formularname = 'f_a' then
  begin
    with f_a.Tabelle do
    begin
      Close;
      Sql := Sqlabfrage;
      open;
    end;
  end;

sonder nur einmal!