Dachte das er dann vielleicht selbst drauf kommt^^
also um den string wieder in Pitch zu bekommen:
Delphi-Quellcode:
function StrToPitch(s: string): TFont;
begin
if s = 'fpDefault' then result.pitch := fpDefault;
if s = 'fpFixed' then result.pitch := fpFixed;
if s = 'fpVariable' then result.pitch := fpVariable;
end;