Сделать текст с прозрачным фоном

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  with PaintBox1.Canvas do begin
    Brush.Style := bsClear;
    Font.Name := 'Arial';
    Font.Size := 20;
    Font.Style := [fsBold];
    Font.Color := clRed;
    TextOut(10, 10, 'red');
    Font.Color := clLime;
    TextOut(15, 15, 'green');
  end;
end;