A: You can do it in the form's OnCreate event handler. Something like this:

WITH BitBtn1.Glyph, Canvas DO
BEGIN
  R := BitBtn1.ClientRect;
  InflateRect(R, -4, -4);
  Width := R.Right - R.Left + 1;
  Height := R.Bottom  - R.Top + 1;
  SetTextAlign(Handle, TA_CENTER);
  Font := Self.Font;
  TextOut(Width DIV 2, 8, 'Foo');
  TextOut(Width DIV 2, 24, 'Bar');
END;