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

procedure TForm1.BrettzeichnenClick(Sender: TObject);
var LPath:String;
begin
  LPath:=ExtractFilePath(ParamStr(0));

  FBrett.LoadFromFile(LPath+'\Brett4.bmp');

  FRot.LoadFromFile(LPath+'\FigurRot.bmp');
  FRot.TransparentColor:=clWhite;                       //auch schon mit FRot.Canvas.Pixels[0,0] probiert
  FRot.Transparent:=True;

  Paintbox1.RePaint;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  Paintbox1.Canvas.StretchDraw(Rect(0,0,Paintbox1.Width,Paintbox1.Height),FBrett);
  Paintbox1.Canvas.StretchDraw(Rect(0,0,0+27,0+55),FRot);
end;