TFont

jeg henter en funktion ind i unit3 via unit4:

//===== unit 3 =========

procedure TForm3.Button1Click(Sender: TObject);
var
font : TFont;
begin
font := unit4.getfont;
end;

//======================
//===== unit 4 =========

function getfont:TFont;
begin
//result.create;
result.Name := 'Arial';
end;

//======================


Hvorfor virker det ikke? jeg får en fejl - noget med "Access Vialotion..."?? Jeg har prøvet med result.create men det virker heller ikke?