[Interface]

Решил еще одну свою задачу! Людям на будущие:

Код:

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