Das geht so auch nicht! TFont ist ein Objekt und kein Record, wie man vermuten könnte.
Deshalb müsste man erst Result := TFont.Create machen, aber besser ist es so:
Delphi-Quellcode:
procedure StrToFont(const Name: string; Font: TFont);
begin
Font.Name := Name;
end;