Paint.EXE? Tutorial

//Vytvoríme si plátno
//Vytvoríme event: MouseDown a MouseMove pre plátno
//Do eventu MouseDown "naprogramujeme" začiatok kreslenia
//Do eventu MouseMove naprogramujeme samotné kreslenie a mazanie a ďalšie nastavenia

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image1.Canvas.MoveTo(X,Y); //Po kliknutí na plátno "kurzor" skočí na naše zvolené miesto X,Y
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Canvas.Pen.Width:=bsize.Value; //Nastavenie veľkosti písma
  Image1.Canvas.Pen.Color:=bcolor.Buttoncolor; //Nastavenie farby písma
  if Shift = [ssLeft] then Image1.Canvas.LineTo(X,Y); //ak je ľavé tlačidlo na myši stisknuté tak sa začne kresliť
  if Shift = [ssRight] then //ak je pravé tlačidlo na myši stisknuté tak sa začne mazať
    begin
      Image1.Canvas.Pen.Color:=clWhite; //Farba gumy. logicky biela. Ak máte pozadie inej farby tak nezadavajte bielu
      Image1.Canvas.Ellipse(X+5,Y+5,X-5,Y-5); //Vytvorenie kruhu pomocou ktorého budeme mazať
    end;
end;