Zuweisen von DataSourcs und DataFields zur Laufzeit

[PhöniX]

Delphi-Quellcode:

try
   case Form1.Uebersetzung of
    0: RightAnswer.DataSource := Form2.DataSource;
       Vokabel.DataSource := Form2.DataSource;
       RightAnswer.DataField := Englisch;
       Vokabel.DataField := Deutsch;
    1: RightAnswer.DataSource := Form2.DataSource;
       Vokabel.DataSource := Form2.DataSource;
       RightAnswer.DataField := Deutsch;
       Vokabel.DataField := Englisch;
   end;
  except
   showmessage('Datenbankfehler'+#10#13+'DataSource oder DataField nicht gefunden.'+#10#13+'(1)');
   Close;
  end;

So..hier ist der Code