После поставување на една компонента IMAGE1 од палетата на компоненти  Additional,
eden button1  so Caption  CRTAJ од палетата на компоненти Standard,
i eden ColorDialog   од палетата на компоненти Dialogs како на сликата:

 1. Прво се декларираат променливите во VAR под Form1: TForm1;

startX,StartY:integer;
crtaj: Boolean;
 

2. на двоен клик на button1 се впишува следниот код (со ова се стартува дијалог за избор на боја)

    Colordialog1.Execute;
    image1.Canvas.Pen.Color:=colordialog1.Color;

3. Потоа се селектира Image1 и се притиска Events од Object inspector.
На евентот onMouseDown се впишува: 

crtaj := True;
StartX:=x;
Starty:=y;

4. Потоа  се селектира Image1 и се притиска Events од Object inspector.
На евентот onMouseUp се впишува: 

 if crtaj then
begin
    image1.Canvas.Rectangle(StartX, StartY, X, Y);
    crtaj := False;
end;