Wie schreibe ich eine Funktion?

[psd-sign]

Ich bn ein Delphi Anfänger und habe eine generelle Frage:

Wie schreibe ich eine Funktion in Delphi (Delphi7)? Und wie rufe ich sie wieder auf?

Aktuelles Beispiel:
Ich programmiere z.Z. ein Fomular, dass nach verschiedenen Algorythmen eine Zahl von Binär in Dezimalwert umrechnet und umgekehrt. Gleichzeitig habe ich 8 TShapes eingefügt, die einen 8 Bit-Controller simulieren sollen. Ich könnte nun immer wieder hinter jedem Mousedown - Event jedes einzelnen Tshapes eine Prozedur hinterlegen, damit ein Binärwert aus den 8 Thsapes entsteht, die wie folgt arbeitet (Thshape1-8 Brush.Color=Rot -->1, Brush.Color=clblack -->0):

Prozedur Tshape1.Mousedown
Binärwert=''
Binärstelle=''
If Tshape1 = rot then
Binärstelle = 1
Binärwert = Binärwert+Binärstelle
else
Binärstelle = 0
Binärwert = Binärwert+Binärstelle
If Tshape2 = rot then
Binärstelle = 1
Binärwert = Binärwert+Binärstelle
else
Binärstelle = 0
Binärwert = Binärwert+Binärstelle
.
.
.
bis einschliesslich TShape8

Das hinter jeden Mousedown nervt extrem und macht den Code nicht wirklich netter ...

Ich würde gerne nur eine Funktion schreiben, die dann bei Mousedown einfach einmal aufgerufen wird. Wie schreibt man in Delphi eine Funktion und wie rufe ich diese auf? Nicht vergessen: Ein Delphi - Anfänger!!