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

     SetStretchBltMode(Puffer.Canvas.Handle, HALFTONE);
     StretchBlt(Puffer.Canvas.Handle,
     WolkenPos[I].X,
     WolkenPos[I].Y,
     WolkenPos[I].X + WolkenPos[I].X div 2 div 4 * 2,
     WolkenPos[I].Y + WolkenPos[I].X div 5 - 10,
     Wolken[I].Canvas.Handle,
     WolkenPos[I].X,
     WolkenPos[I].Y,
     WolkenPos[I].X + WolkenPos[I].X div 2 div 4 * 2,
     WolkenPos[I].Y + WolkenPos[I].X div 5 - 10,
     SRCINVERT);					

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:
33:
34:
35:
36:

procedure TForm1.FormPaint(Sender: TObject);
var
  Buffer: TBitmap;
  Background: TBitmap;
  Cloud: Integer;
  OriginalCloud: TBitmap;
  TempCloud: TBitmap;
begin
  // Hintergrund in Buffer zeichnen
  Buffer.Canvas.Draw(0, 0, Background);
  // oder
  Buffer.Assign(Background); // vermutlich besser, da nur kopiert wird

  // Wolken in Buffer zeichnen
  for Cloud := 0 to MaxClouds -1 do begin
    // Wolke erstellen und zeichnen
    TempCloud := TBitmap.Create;
    try
      // Größe festlegen
      TempCloud.PixelFormat := pf24bit;
      TempCloud.Width := 000;
      TempCloud.Height := 000;

      // Original Wolke in Temporäre zeichnen
      TempCloud.Canvas.StretchDraw (TempCloud.Canvas.ClipRect, OriginalCloud);

      // temporäre Wolke mittels Scanline auf Hintergrund aufbringen.
      // Das überlasse ich dir.
    finally
      TempCloud.Free;
    end;
  end;

  // Buffer zeichnen
  Form1.Canvas.Draw(0, 0, Buffer);
end;					

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:

    for I := 0 to 3 do begin
    // Wolke erstellen und zeichnen
      WolkenTemp[I] := TBitMap.Create;
      try
      // Größe festlegen
        WolkenTemp[I].PixelFormat := pf24bit;
        WolkenTemp[I].Height := WolkenPos[I].X + WolkenPos[I].X div 2 div 4 * 2;
        WolkenTemp[I].Width := WolkenPos[I].Y + WolkenPos[I].X div 5 - 10;
      // Original Wolke in Temporäre zeichnen
        WolkenTemp[I].Canvas.StretchDraw(WolkenTemp[I].Canvas.ClipRect, Wolken[I]);
      // temporäre Wolke mittels Scanline auf Hintergrund aufbringen.
  for y := 0 to WolkenTemp[I].height - 1 do
    begin
      pPix2 := WolkenTemp[I].ScanLine[y];
      pPix1 := Background.ScanLine[Y + WolkenPos[I].Y];
      for x := 0 to WolkenTemp[I].width - 1 do
      begin
          pPix1^.rgbtRed := pPix2^.rgbtRed;
          pPix1^.rgbtGreen := pPix2^.rgbtGreen;
          pPix1^.rgbtBlue := pPix2^.rgbtBlue;
        Inc(pPix1);
        Inc(pPix2);
      end;
    end;
      finally
        WolkenTemp[I].Free;
      end;
    end;
    Image1.Canvas.Draw(0, 0, Puffer); //Pufferzeichnung					

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

    Wolke;
    // Wolken in Buffer zeichnen
    for I := 0 to 3 do begin
      // Wolke erstellen und zeichnen
      WolkenTemp := TBitMap.Create;
      WolkenTemp.Transparent := True; //Problem
      try
        // Größe festlegen
        WolkenTemp.PixelFormat := pf24bit;
        WolkenTemp.Width := WolkenPos[I].X div 2 div 4 * 2;
        WolkenTemp.Height := WolkenPos[I].X div 5 - 10;
        // Original Wolke in Temporäre zeichnen
        WolkenTemp.Canvas.StretchDraw(WolkenTemp.Canvas.ClipRect, Wolken[I]);
        Wolken[I].Assign(WolkenTemp);
        Puffer.Canvas.Draw(WolkenPos[I].X, WolkenPos[I].Y, Wolken[I]);
      finally
        WolkenTemp.Free;
      end;
    end;
    Image1.Canvas.Draw(0, 0, Puffer); //Pufferzeichnung					

1:

        Puffer.Canvas.Draw(WolkenPos[I].X, WolkenPos[I].Y, WolkenTemp);					

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

//...
      Puffer.Assign(Background);
      Puffer.Canvas.StretchDraw(rect(SchornsteinPos.X, SchornsteinPos.Y, SchornsteinPos.X + 130, Image1.Top + Image1.Height), Schornstein);
      Puffer.Canvas.StretchDraw(rect(PlayerPos.X, PlayerPos.Y, PlayerPos.X + 130, PlayerPos.Y + 79), Player);
      if DachPos.X > -100 then
         Puffer.Canvas.StretchDraw(rect(DachPos.X, DachPos.Y, DachPos.X + 100, Image1.Top + Image1.Height), Dach);
      Wolke;
      Image1.Canvas.Draw(0, 0, Puffer); //Pufferzeichnung

//...
procedure TForm1.Wolke;
var
   I, y, x: integer;
   pPix1, pPix2: PRGBTriple;
begin
   randomize;
   for I := 0 to 3 do
   begin
      if WolkenPos[I].X div 2 div 4 * 2 < 5 then //Wolkenbewegung
         WolkenPos[I].X := 1200;
      for y := 0 to Wolken[I].height - 1 do
      begin
         pPix1 := Wolken[i].ScanLine[y];
         pPix2 := Background.ScanLine[Y + WolkenPos[I].Y];
         Inc(pPix2, WolkenPos[I].X);
         for x := 0 to Wolken[I].width - 1 do
         begin
            if (pPix1^.rgbtGreen = 255) and (pPix1^.rgbtblue = 0) and (pPix1^.rgbtred = 0) then
               pPix1 := pPix1
            else
            begin
               pPix1^.rgbtRed := (pPix2^.rgbtRed + WolkenColor[I] + 255) div 3;
               pPix1^.rgbtGreen := (pPix2^.rgbtGreen + WolkenColor[I] + 255) div 3;
               pPix1^.rgbtBlue := (pPix2^.rgbtBlue + WolkenColor[I] + 255) div 3;
            end;
            Inc(pPix1);
            Inc(pPix2);
         end;
      end;
      WolkenTemp := TBitMap.Create;
      WolkenTemp.PixelFormat := pf24bit;
      Wolken[I].PixelFormat := pf24Bit;
      WolkenTemp.Width := WolkenPos[I].X div 2 div 4 * 2; // Größe festlegen
      WolkenTemp.Height := WolkenPos[I].X div 5 - 10;
      WolkenPos[I].X := WolkenPos[I].X - (Lvl.Tag + 3) - Speedfactor;
      WolkenTemp.Canvas.StretchDraw(WolkenTemp.Canvas.ClipRect, Wolken[I]); // Original Wolke in Temporäre zeichnen
      Wolken[I].Assign(WolkenTemp);
      WolkenTemp.Transparent := true;
      Puffer.Canvas.Draw(WolkenPos[I].X, WolkenPos[I].Y, WolkenTemp);
      WolkenTemp.Free;
   end;
end;