Przypisanie czcionki

Mam zadeklarowany rekord:

 
type
  PWirtualnyRekord = ^TWirtualnyRekord;
  TWirtualnyRekord = record
    Caption : WideString;
    Hint    : WideString;
    Typ     : Byte;
    Color   : TColor;
    Wysokosc: Integer;
    Czcionka: TFont;
end;

Wypełniam go tak :
TempDane^.Hint := DS_Typ1.FieldByName('Hint').Value;
I tak działa.

Ale kiedy próbuję w ten sam sposób podstawić czcionkę lub rozmiar czcionki:

TempDane^.Czcionka.Name := 'Tahoma';
TempDane^.Czcionka.Size := 16;

Dostaję AccesViolation.
Dlaczego ?
Czy czcionkę trzeba inaczej obsługiwać ?

Może się mylę, ale spróbuj:

New(TempDane^.Czcionka);

I dopiero potem, chociaż już po woli przestaję kojarzyć, więc w razie pomyłki, nie krzycz ;-)

Pele2 napisał(a)

Ale kiedy próbuję w ten sam sposób podstawić czcionkę lub rozmiar czcionki:

TempDane^.Czcionka.Name := 'Tahoma';
TempDane^.Czcionka.Size := 16;

Dostaję AccesViolation.
Dlaczego ?
Czy czcionkę trzeba inaczej obsługiwać ?

a stworzyłeś obiekt czcionka??