1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

PROCEDURE TForm1.Test ();
VAR
   I, J, T: Integer;
   PFarbe: TColor;
BEGIN
     FOR T := 1 TO 5 DO //T steht für dich Anzahl der Schichten die runterfallen 
     FOR I := ExKoord.X - 20 TO  ExKoord.X + 20 DO // Bei den ExKoord.X und Y wird eine Ellipse gezeichnet
         FOR J := 1 TO ExKoord.Y + 20 DO
         BEGIN (* FOR J *)
              IF Landschaft.Canvas.Pixels [I, J] <> ClWhite
                 THEN
                     BEGIN (* IF <> ClWhite *)
                          PFarbe := Landschaft.Canvas.Pixels [I, J];
                          IF Landschaft.Canvas.Pixels [I, J + 1] = ClWhite
                             THEN
                                 BEGIN (* IF = ClWhite *)
                                 Landschaft.Canvas.Pixels [I, J] := ClWhite;

                                 Landschaft.Canvas.Pixels [I, J + 1] := ClRed;
                                 END; (* IF = ClWhite *)
                     END; (* IF <> ClWhite *)
         END; (* FOR J *)
END;					

1:

var punkte : array[1..20] of tpoint;					

1:
2:
3:
4:

for i:=1 to 20 do begin
  punkte[i].x:=exkoord.x-20 +irgendetwas;
  punkte[i].y:=exkoord.y-20 +irgendetwas;
end;					

1:
2:
3:

var Landschaft: TBitmap;
//...
Landschaft.PixelFormat:= pf32bit;					

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

var SLine: PCardinal;
//...

//Zeile holen, SLine Zeigt dann auf das erste Pixel der Zeile.
SLine:= Landschaft.ScanLine[Y];
//zum Pixel "spulen", d.h. "verschiebe SLine X-mal weiter"
inc(SLine, X);

//SLine ist ein Zeiger, d.h. es enthält nicht den Wert selber, sondern die Stelle im Speicher
//an der sich der (Farb)Wert befindet.
//Wir wollen aber den Wert erhalten/bearbeiten, müssen den Zeiger "de-referenzieren". Das macht der ^ -Operator.
if SLine^ = clWhite then
  SLine^:= clBlack;					

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

function GetPixel(Bitmap: TBitmap; X, Y: integer): TColor;
var SLine: PCardinal;
begin
  SLine:= Bitmap.ScanLine[Y];
  inc(SLine, X);
  Result:= SLine^;
end;

procedure SetPixel(Bitmap: TBitmap; X, Y: integer; Color: TColor);
var SLine: PCardinal;
begin
  SLine:= Bitmap.ScanLine[Y];
  inc(SLine, X);
  SLine^:= Color;
end;					

1:

IF GetPixel(Landschaft, I, J) <> ClWhite then //...