1:
2:
3:
4:
5:
6:
7:
8:
9:

type Tmylabel = record
       font: Tfont;
       caption: string;
       width,top,height,left: integer;
       onClick: Tnotifyevent;
       cursor: TCursor;
       Alignment: Talignment;
       WordWrap: boolean;
end;					

1:
2:
3:
4:
5:

procedure TForm1.Klickit(var parentlink: TWinControl; bbtext:string;var x,y,oldheight: integer;Ffont: Tfont);
var mylabel: Tmylabel;
begin
  mylabel.font.Create; //Hier kommt schon die Fehldermeldung "Access violation...." :(
  mylabel.font.assign(ffont);					

1:

Myfont.Font := TFont.Create;