procedure TForm1.SpinEditChange(Sender: TObject); var i : integer; begin If SpinEdit1.Text <> '' then I := SpinEdit2.Value; end;