Es funktioniert schon. Danke
Es gehört nämlich so:
Code:
a:=33;
b:=33;
for i:=1 to Max do
for k:=1 to Max do begin
P.x:=Round((i-1)*a);
P.y:=Round((k-1)*b);
Q.x:=Round(i*a);
Q.y:=Round(k*b);
if (X >= P.x) and (X<Q.x) and (Y >= P.y) and (Y<Q.y) then begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('c:\Gras.bmp');
Image1.Canvas.Draw(P.X,P.Y,Bitmap);
Bitmap.Free;