TJvTransparentButton Font Size ändern

[Glados]

Mal ganz davon abgesehen, dass man das alles schöner machen kann... was soll denn das hier bringen?

Delphi-Quellcode:

Buffer:=Buttons[c-1].Caption;
Delete(Buffer,Pos(' ',Buffer),Length(Buffer));

Wofür der Buffer?
Mach am besten den ganzen Salat noch einmal in "schön" neu.