Text Mittig auf ein bild zeichnen

[seppi.tm]

Also ich zeiche so ein text auf ein bild von mir:

Delphi-Quellcode:

with Image1.Picture.Bitmap.Canvas do
  begin
    Font.Color  := clBlack;
    Brush.Style := bsclear;
    Font.Size   := 10;
    Font.Name   := JvFontComboBox1.FontName;
    Font.Style  := [fsBold];
    TextOut(0, 1, edit1.Text);
  end;

sooo aber jetzt habe ich das Problem das ich es gerne mittig hätte das bild ist 32px lang un d ich will das der text in der mitte steht
wenn ich die hälfte nehme fängt er in der mitte an ... das will ich nciht wie kann ich das realisieren das er in der mitte steht?