bmp erstellen, beschriften und speichern geht nicht

[BBoy]

Ich erstelle in einer Schleife ein BMP auf dessen canvas eine Zahl geschrieben wird. Das BMP wird gespeichert und verwendet. Aber er übernimmt die Nummerierung nicht, auf jedem BMP steht eine 1

Delphi-Quellcode:

    for n:=0 to High(Locations) do begin
      Beach:=Locations[n];
    bmp:=TBitmap.Create;
    bmp.Width:=10;
    bmp.Height:=12;
    bmp.PixelFormat :=   pf24bit;
    bmp.Canvas.Font.Size := 10;
    bmp.Canvas.Font.Style := [fsbold];
    bmp.Canvas.TextOut(2,-1,beach.Name); // könnte hier auch inttostr(n) machen, geht aber auch nicht
    bmp.SaveToFile('temp1.bmp');
    Image:=Google.Maps.MarkerImage(URL+'temp1.bmp', Google.Maps.Size(10,12), Google.Maps.Point(0,0),Google.Maps.Point(5,6));
    bmp.Free;
  end;

Das ist nur ein ausschnitt aus der kompletten prozedur...

Was mache ich falsch? Warum wird immer nur die 1 gespeichert? Die schleife wird aber mehrmals durchlaufen.