1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.Button1OnClick(Sender: TObject);
begin
  Paintbox1.Repaint;
end;

procedure TForm1.Paintbox1Paint(Sender: TObject);
begin
  with Paintbox1.Canvas do
  begin
    MoveTo(100,100); //Den Malcursor zur Position X= 100; Y= 100; bewegen.
    LineTo(100,200); //Eine Linie vom Malkursor bis zur Position X= 100; Y=200; (Senkrechter Strich nach Unten)
    Brush.Color := clRed; //Füllfarbe auf Rot
    Pen.Color := clLime //Stiftfarbe auf Grün
    Rectangle(200,200,400,400); //ein Grüngefülltes Rechteck mit Rotem Rand mit Ecke oben Links: (200,200) Ecke oben Rechts (400,400) = ein Quadrat mit Seitenlänge 200
    Ellipse(10,10,20,20); //einen Kreis malen
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

TForm1 = class(TForm)
  procedure Timer1Timer(Sender : TObject);
  procedure Paintbox1Paint(Sender : TObject);
private

public
  SteinX,SteinY : Integer
end;

implementation

procedure TForm1.Timer1Timer(Sender : TObject);
begin
  SteinY := Timer1.Tag;
  Timer1.Tag := Timer1.Tag + 1;
  if Timer1.Tag > 200 then Timer1.Tag := 0;
  Paintbox1.Repaint;
end;

procedure TForm1.Paintbox1Paint(Sender : TObject);
begin
  Paintbox1.Canvas.Rectangle(0,SteinY,20,SteinY+20);
end;