Вывод текста и графических примитивов на экран компьютера

unit fMain;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls,
   WINDOWS,Graphics, Dialogs, StdCtrls, ExtCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  dc : hdc;
  C:TCanvas;
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
 var bits: tBitmap;
begin
  dc:= Getdc(0);
  C:= TCanvas.Create;
  C.Handle:= dc;
   c.font.size:= 24;
   c.font.color:= clRed;
   c.Brush.color:= clyellow;
{число 13 в TextOut это количество выводимых символов
  в строке,если меньше то строка 'HELLO FRIENDS' обрежется}
  TextOut(c.handle,230,300,'HELLO FRIENDS',13);
    ReleaseDc(0, Dc);
    C.Free;C:=nil;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   C:=TCanvas.Create();
   DC := GetDC(0);
   C.Handle:= DC;
    c.Pen.Color:= clred;
    c.Pen.Width:= 10;
    c.Brush.Color:= clGreen;
   rectangle(c.handle,200,200,500,500);
    ReleaseDC(0,DC);
    C.Free;C:=nil;
end;
 
end.