Du müsstest mit GetObjectProp(Label1,'Font') das Schrift-Objekt ermitteln und dann wieder mit SetStrProp(Font,'Name','Test') setzen.
Delphi-Quellcode:
var
tmpObject: TObject; // TObject da tatsächliche Klasse zur Laufzeit unbekannt ist und auch egal ist
begin
tmpObject:=GetObjectProp(Label1,'Font');
SetStrProp(tmpObject,'Name','Test);
end;