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:

procedure TPaintingThread.Execute;
var
  DCanvas: TCanvas;
  DHandle: HDC;
  x, y: Integer;
  rect: TRect;
begin
  SetName;
  DHandle := GetDC(0);
  if DHandle <> 0 then
  begin
    try
      DCanvas := TCanvas.Create;
      try
        DCanvas.Handle := DHandle;
        DCanvas.Font.Color := clGreen;
        DCanvas.Font.Size := 72;
        DCanvas.Brush.Style := bsClear;
        x := Screen.Width div 2 - DCanvas.TextWidth(MsgString) div 2;
        y := - DCanvas.TextHeight(MsgString);  // MsgSring: String; aus einer anderen Unit, globale Var
        while not Done do // Done: Boolean; aus einer anderen Unit, globale Var
        begin
          rect := DCanvas.ClipRect;
          InvalidateRect(DCanvas.Handle, @rect, true);
          DCanvas.TextOut(x, y, MsgString);
          if y < Screen.Height then
            Inc(y)
          else
            y := - DCanvas.TextHeight(MsgString);
          sleep(10);
        end;
      finally
        DCanvas.Free;
      end;
    finally
      if ReleaseDC(0, Handle) <> 1 then
        RaiseLastOSError;
    end;
  end
  else
  begin
    RaiseLastOSError;
  end;
end;