@Helmi
der Zugriff bei Sir Rufos's Variante ist viel einfacher
Delphi-Quellcode:
Const
c:Array[TPrintScale] of String=('None', 'Proportional', 'PrintToFit') ;
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := c[poPrintToFit];
end;
Ich glaube da gibt´s ein Missverständnis.
Ich habe einen String, den ich als Auswahl nutzen möchte, nicht anders rum.
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<