1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

var
  i,x:Integer;
  e:array[0..2] of integer;
  menus:array [0..2,0..4] of String;
  BitMap1 : TBitMap;
begin
  BitMap1 := TBitMap.Create;
  menus[0,0]:='Spiel Starten';
  menus[0,1]:='Einstellungen';
  menus[0,2]:='Hilfe';
  menus[0,3]:='Beenden';

  menus[1,0]:='Spiel Starten';
  menus[1,1]:='Level Laden';
  menus[1,2]:='Level Editor';
  menus[1,3]:='Zurück';

  menus[2,0]:='Level Speichern';
  menus[2,1]:='Level Laden';
  menus[2,2]:='Einstellungen';
  menus[2,3]:='Zurück zum Hauptmenu';
  menus[2,4]:='Zurück';

  e[0]:=3; e[1]:=3; e[2]:=4;
  for i:=0 to 2 do begin
    for x:=0 to e[i] do begin
      if CheckBox1.Checked = True then begin
        BitMap1.Canvas.Font:=FontDialog2.Font;
        BitMap1.Canvas.TextOut(0,0,menus[i,x]);
        BitMap1.SaveToFile(BUDirectoryBox1.Directory + '\s_' + IntToStr(i) + '_' + intToStr(x) + '.bmp' )
      end
      else begin
        BitMap1.Height:=30; BitMap1.Width:=FontDialog2.Font.Size + StrLen(PChar(menus[i,x])) ;
        BitMap1.Canvas.Font:=FontDialog1.Font;
        BitMap1.Canvas.TextOut(0,0,menus[i,x]);
        BitMap1.SaveToFile(BUDirectoryBox1.Directory + '\u_' + IntToStr(i) + '_' + intToStr(x) + '.bmp' )
      end;
    end;
  end;					

1:
2:
3:
4:

with Bmp do begin
  if Canvas.TextWidth('Ein Text') > Width then Width := Canvas.TextWidth('Ein Text'); 
  //Height := Height + Canvas.TextHeight(#32);
end;