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:

...
if opendialog1.execute then
begin
image1.picture.loadfromfile(speicherort + data\1.bmp');

// teilma?e x&y berechnen
teilmas.x:=round(image1.Width div teile);
teilmas.y:=round(image1.height div teile);

// für alle teile in x und y
for px:=1 to teile-1 do
for py:=1 to teile-1 do
 begin
// Start und Ende der einzelnen Bilder
 x1:=start.X+(px*teilmas.X);
 x2:=x1+teilmas.X;
 y1:=start.y+(py*teilmas.y);
 y2:=y1+teilmas.y;

// pixel auslesen und in image2 einzeichnen
 for p1:=x1 to x2 do
 for p2:=y1 to y2 do
 begin
 image1.Canvas.MoveTo(p1,p2);
 farbe:=image1.Canvas.Pixels[p1,p2];
 image2.Canvas.Pixels[p1,p2]:=farbe;
 end;

image2.picture.savetofile(speicherort + 'bilder\' + inttostr(nr) + '.bmp');
inc(nr);
end;
....					

1:

Image1.Picture.LoadFromFile(OpenDialog1.FileName)					

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:

procedure TileBitmap(Src: TBitmap; TilesX, TilesY: Integer; DestFileName: string);
var
  Dest: TBitmap;
  x, y: Integer;
  TileWidth, TileHeight: Single;
begin
  TileWidth := Src.Width / TilesX;
  TileHeight := Src.Height / TilesY;
  Dest := TBitmap.Create;
  try
    for x := 0 to Pred(TilesX) do
      for y := 0 to Pred(TilesY) do
      begin
        Dest.SetSize(Round(Succ(x) * TileWidth) - Round(x * TileWidth),
          Round(Succ(x) * TileHeight) - Round(x * TileHeight));
        StretchBlt(Dest.Canvas.Handle, 0, 0, Dest.Width, Dest.Height,
          Src.Canvas.Handle, Round(x * TileWidth), Round(y * TileHeight),
          Round(Succ(x) * TileWidth) - Round(x * TileWidth),
          Round(Succ(y) * TileHeight) - Round(y * TileHeight), SRCCOPY);
        Dest.SaveToFile(Format(DestFileName, [x * TilesY + y]));
      end;
  finally
    Dest.Free;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  Img: TBitmap;
begin
  if dlgOpen.Execute then
  begin
    Img := TBitmap.Create;
    try
      Img.LoadFromFile(dlgOpen.FileName);
      TileBitmap(Img, 10, 10, speicherort + 'bilder\Image%d.bmp');
      Image1.Picture.Assign(Img);
    finally
      Img.Free;
    end;
  end;