[[cHackAll]]

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 Button1.Font.Handle := CreateFont(-11, 0, 900, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 'Tahoma');
end;