Wie schreibe ich eine Funktion?

[psd-sign]

So funktioniert es ... 2 Zigaretten und nen Kaffee später

Delphi-Quellcode:

procedure TForm1.SHAPEClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Sender is TShape then
  begin
    if TShape(Sender).Brush.Color = Clmaroon then
    begin
    TShape(Sender).Brush.Color := ClBlack;
    exit;
    end
    else
    begin
    TShape(Sender).Brush.Color := ClMaroon;
    exit;
    end;
  end;
end;