try / except bringt ungewollte Fehlermeldung

[toms]

oder Val verwenden

Delphi-Quellcode:

var 
  I, Code: Integer;
begin
  Val(ComboBox1.Text, I, Code);
  if Code <> 0 then
    Image1.Canvas.Pen.Width := I
  else
    ComboBox1.Text := IntToStr(Image1.Canvas.Pen.Width);