Problem mit Properties

[sundance]

Hallo Delphi-Profis,

ich habe folgendes Problem/Herausforderung:
In meiner Delphi-Applikation habe ich ein extra Formular, auf der die ganzen Einstellungen vorgenommen werden. Unter anderem finden sich dort einige TPanels, über die die Programmpfade externer Kommandozeilenapplikationen eingestellt werden können. Um diese Pfade nun auszulesen, wollte ich gerne für jede Applikation eine Property bereitstellen, am liebsten nach folgendem Muster:

Delphi-Quellcode:

property App1Pathname: string read Panel1.Caption;
property App2Pathname: string read Panel2.Caption;
{ etc. }

Das funktioniert so leider nicht. Auch mein Versuch mit einer zusätzlichen Getter-Funktion geht nicht besser:

Delphi-Quellcode:

function GetAppname(aPanel: TPanel): String;
begin
  result := aPanel.Caption
end;

property App1Pathname: string read GetAppname(Panel1);
property App2Pathname: string read GetAppname(Panel2);

Gibt's einen Weg, wie man das hinbekommt, ohne für jedes Property eine eigene Getter-Funktion vorzusehen?

.sundance.