Popup geht erst beim zweiten mal?

[mandumoal]

HI!

Mein Problem:

Ich habe ein ganz normales Shape auf meiner Form und ein Popup-Menu welches vier Einträge hat (Rot,Blau,Grün,Gelb).
Beim OnMouseDown Ereignis des Shape wird Folgendes aufgerufen:

Delphi-Quellcode:

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ColorPOPLIN.Popup(ax,ay);
shape1.brush.color:=colorLin1;
end;

Die Popup Einträge werden so ausgewertet:

Delphi-Quellcode:

procedure TForm1.RotClick(Sender: TObject);
    begin
    colorLin1:=clRed;
    end;
    procedure TForm1.BlauClick(Sender: TObject);
    begin
    colorLin1:=clBlue;
    end;
    procedure TForm1.GruenClick(Sender: TObject);
    begin
    colorLin1:=clgreen;
    end;
    procedure TForm1.GelbClick(Sender: TObject);
    begin
    colorLin1:=clyellow;
    end;

So, wenn ich jetzt draufklicke (im Betrieb) und eine Farbe auswähle passiert erst mal gar nichts, beim zweiten mal kommt die farbe die ich beim ersten mal gewählt habe egal welche ich beim zweiten mal gewählt habe und so weiter...

Ich weiss einfach nicht was ich da falsch gemacht habe??
Freue mich auf eure Hilfe!

mfg mandumoal