Unit "dynamisch" einbinden

[ernschd]

Folgendes Problem:
Ich habe eine Unit „Les“:

Delphi-Quellcode:

Unit Les;
…
Procedure LeseDatei(Name: String);
begin
   AssignFile(Name…
end;

Dann gibt es die Unit „LesSQL“:

Delphi-Quellcode:

Unit LesSQL;
…
Procedure LeseDatei(Name: String);
begin
   Sql := „SELECT * FROM `Name`…
end;

Die Methodenaufrufe der Unit LesSQL wurden aus Gründen der Kompatibilität identisch mit denen der Les erstellt. Die beiden Dateien sollten auch so erhalten bleiben.
Bislang wurden die Units immer je nach Anwendungsfall eingebunden und kompiliert.

Nun gibt es eine neue Klasse „TLese“ als Wrapper, die den Zugriff auf die Les/LesSQL-Units vereinfacht:

Delphi-Quellcode:

// LeseDatei aufrufen.
Function TLese.getDatei: Boolean;

Ich hätte nun gerne eine Möglichkeit, je nach Anwendungsfall die passende Unit in der Klasse TLese einzubinden (z.B. mittels Parameter im Konstruktor).
Gibt es hierfür eine Lösung? Vielleicht per Compiler-Direktive?