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

const Text='Hallo Welt';
begin
 with Image1.Canvas do begin
  Font.Size:=20;
  Font.Name:='Arial';
  with TBitmap.Create do try
   Canvas.Font.Assign(Font);
   Width:=TextWidth(Text);
   Height:=TextHeight(Text);
   Canvas.TextOut(0,0,Text);
   Canvas.CopyMode:=dstInvert;
   Canvas.CopyRect(Rect(0,0,Width,Height),Canvas,Rect(0,0,0,0));

   CopyMode:=srcInvert;
   CopyRect(Rect(100,100,100+Width,100+Height),Canvas,Rect(0,0,Width,Height));
  finally
   Free;
  end;
 end;
end;					

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

 TempImage.Visible := True;
 TempImage.Picture.LoadFromFile(OpenPictureDialog.FileName);
 ProjektAboutImage.Picture.Bitmap.Assign(TempImage.Picture.Graphic);  // wenn ich das so nicht mache kann ich keine Zeichenoperationen ausführen
 TempImage.Visible := False;

 ...
 ...
 ...

 with TempImage.Canvas do // hier bleibt der stehen
 begin
 FillRect(0,0,Width,Height);   // ob man das hier unbedingt machen muß? Ich hatte das versucht weil Fehler auftrat
 Font.Assign(ProjektInfoMemo.Font);
 H := TextHeight(ProjektInfoMemo.Lines.Strings[0]);
 for I := 0 to ProjektInfoMemo.Lines.Count-1 do
 TextOut(0,I*H,ProjektInfoMemo.Lines.Strings[I]);
 end;
 ProjektAboutImage.Canvas.CopyMode := cmSrcInvert;
 ProjektAboutImage.Canvas.CopyRect(Rect(35,50,416,241), TempImage.Canvas, Rect(0,0,TempImage.Width, TempImage.Height));					

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

procedure ChangeLabelColor;
var
  i : integer;
begin
  for i := 0 to Form1.ControlCount - 1 do begin
    if Form1.controls[i] is TLabel then begin
      TLabel(Form1.controls[i]).font.Color :=  ColorToRGB(Form1.Color) xor $00FFFFFF;
    end;
  end;
end;