Wie schreibe ich eine Funktion?

[inherited]

Es geht noch kürzer:

Delphi-Quellcode:

procedure TForm1.SHAPEClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Sender is TShape then
  begin
    TShape(Sender).Brush.Color := TShape(Sender).Brush.Color xor clMaroon;
  end;
end;

Unter der Prämisse dass die Farbe zu beginn Schwarz oder clMaroon ist.