[AND_REY]

Ниже приведен код для рисования линий, для прямоугольников
используй Rectangle.

Код:

var
 D: Boolean = False;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 D:= True;
 Form1.Canvas.MoveTo(X,Y);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 D:= False;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if D Then Form1.Canvas.LineTo(X,Y);
end;