SpinEdit.Value manuell verändern

[Patrick6]

Delphi-Quellcode:

procedure TForm1.SpinEdit1Exit(Sender: TObject);
begin
   if SpinEdit1.Text <> ''
    then
      try
        Image1.Canvas.Pen.Width := SpinEdit1.Value;
      finally
         SpinEdit1.MaxValue := 80;
         SpinEdit1.MinValue := 1;
       if
          SpinEdit1.Value > SpinEdit1.MaxValue
       then
          SpinEdit1.Text := '80';
       if
          SpinEdit1.Value < SpinEdit1.MinValue
       then
          SpinEdit1.Text := '1';
    end;
end;

Hier ist er. Sorry, ich bin noch ein Anfänger und kenn die Ereignisse und was sie genau bewirken noch nicht so ganz.
Ich hoffe ihr könnt mir trotzdem irgendwie helfen


Edit: Mir ist gerade aufgefallen, dass sie die Größe des Stiftes doch ändert, aber erst, wenn man auf einen anderen Button geklickt hat. Wie kann ich das beheben?