Variablenverkettung: Wert einer Variable auslesen, die einem Pointer entspricht

[Stewag]

Ich habe drei Variablenlisten: Nennen wir sie der Einfachheit halber "Auto", "Motor" und "Leistung".

Ich möchte die Leistung des Motors eines Autos bestimmen.

'MotorN' ist dabei zum einen String, der einem Auto zugewiesen wird und gleichzeitig eine gleichnamige Variable, der eine Leistung zugewiesen ist.

Gesetzt wurde:
Auto1 := 'Motor1' // 'Motor1' = String
Motor1 := Leistung1 // Motor1 = Variable
Leistung1 := '99' bzw. 99 // String oder Integerwert

Mit Pchar(Auto1) kann ich den Motor auslesen.

Meine Frage ist: Wie kann ich über den Motor die Leistung auslesen?
Mit Pchar(Pchar(Auto1)) geht es nicht.

Oder lässt sich das Problem einfacher abbilden?