Record mit Objekt kopieren

[cruiser]

Im Grunde brauchst du die temporary Font doch gar nicht, oder?

Delphi-Quellcode:

{...}
        
        TempPageHeaderData.Font := TFont.Create;
        try
          TempPageHeaderData.Font.Name := 'Tahoma';
          TempPageHeaderData.Font.Size := -10;
          TempPageHeaderData.Font.Color := clBlack;
          TempPageHeaderData.Font.Style := [];
        finally
        end;
{...}