Statusbar von einer Funktion ändern lassen

[meisteralex]

Hi Leute, ich möchte von einer Funktion eine Statusbar ändern lasse, wovon ich die Adresse in den Parametern übergeben möchte, probiere ich dies auf dem Weg wie ich dachte das es geht erhalte ich immer die Fehlermeldung: [Fehler] main.pas(105): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

Hier die Funktion so wie ich dachte das sie funktioniert:
procedure blabla(pgbar:TProgressBar);