Работа во графички режим во програмски јазик DELPHI.

После поставување една компонента  IMAGE1 од палетата со компоненти  Additional 
и еден button1  со Caption  CRTAJ од палетата со компоненти Standard,  
на двоен клик на button1 се впишува следниот код 

procedure TForm1.Button1Click(Sender: TObject);

begin
image1.Canvas.Pen.Width:=3;
Image1.Canvas.Pen.Color:= clBlue;
Image1.Canvas.Pen.Style := psDash;  
Image1.Canvas.MoveTo(220, 215);
Image1.Canvas.LineTo(250, 345);                                 - линија
image1.Canvas.Ellipse(20, 20, 220, 220);                      - елипса или круг
image1.Canvas.Rectangle(10,10,100,100);                    - правоаголник или квадрат

end;

Истото може да го направите дирекно на Формата поточно на CANVAS само изоставете го Image1

procedure TForm1.Button1Click(Sender: TObject); /

begin
Canvas.Pen.Width:=3;
Canvas.Pen.Color:= clBlue;
Canvas.Pen.Style := psDash;  
Canvas.MoveTo(220, 215);
Canvas.LineTo(250, 345);                                 - линија
Canvas.Ellipse(20, 20, 220, 220);                      - елипса или круг
Canvas.Rectangle(10,10,100,100);                    - правоаголник или квадрат

end;  

Боите се :  clBlue, clRed, clWhite, clYellow, clBlack и др.

Стилови на линии се:     psClear             - невидлива линија
psDash              - испрекинарта
psDashDot        - црта, точка
psDashDotDot  - црта, точка, точка
psDot                 - линија со точки
psSolid               - полна линија