procedure ...
var
Stack: TStack<integer>;
begin
Stack := TStack<integer>.Create;
try
//...
// Тут весь расчёт
// ...
finally
Stack.Free;
end;
end;
проблема связана точно не с аппаратной частью- ничем необоснованное утверждение. Где доказательства, что на Вашем ноуте вообще работают usb порты?