procedure TForm1.FormCreate(Sender: TObject);
var
strCaption:string;
intI:integer;
begin
strCaption:=BitBtn1.Caption;
BitBtn1.Caption:='';
for intI:=length(strCaption) downto 1 do BitBtn1.Caption := strCaption[intI] +char(13)+char(10)+ BitBtn1.Caption
end;

Результат работы:



Можно еще через Canvas, но там труднее.