Wie schreibe ich eine Funktion?

[psd-sign]

Nun ist die Verwirrung perfekt ... ich möchte, dass je nach Steuerlementnamen des TShapes nun die Coloreigenschaften geändert werden. Der Compiler leuchtet wie ein Weihnachtsbaum ... hat jemand ne Idee?

Delphi-Quellcode:

procedure TForm1.SHAPEClick(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

var
TheShape: TComponentname;

begin
  if Sender is TShape then
    begin
      TheShape:=TShape(Sender).Name;
      if TheShape.Brush.Color = Clmaroon then
        begin
        TheShape.Brush.Color := ClBlack;
        exit;
        end
      else
        begin
        Tshape.TheShape.Brush.Color := Clmaroon;
        exit;
        end;
      end;
    end;

end;