Die Farbe von TLabel mit einem Click ändern ?

[smart]

Hallo Alle zusammen!
Ich möchte die Farbe mehrer TLabel auf einer Form mit einem Click ändern und habe mir folgende procedure geschrieben. Leider klappt die Sache nicht. Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.MyLabel(var Farbe: Integer);
begin
With TLabel do
begin
     Color := Farbe;
     end;
end;


//Aufruf
procedure TForm1.Button1Click(Sender: TObject);
Var
Farbton: Integer;
begin
Farbton := 59233;
MyLabel(Farbton);
end;