I just copied your code. And I get all of the below messages.
Starts with a warning about Str.
unit1.pas(48,3) Warning: Local variable "Str" does not seem to be initialized
unit1.pas(34,3) Note: Local variable "Price" not used
unit1.pas(35,3) Note: Local variable "PriceStr" not used
unit1.pas(36,3) Note: Local variable "cafl" is assigned but never used
unit1.pas(37,3) Note: Local variable "ask" not used
unit1.pas(37,7) Note: Local variable "bid" not used
unit1.pas(37,11) Note: Local variable "freq" not used
unit1.pas(37,16) Note: Local variable "y" not used
unit1.pas(38,3) Note: Local variable "code" not used
unit1.pas(38,8) Note: Local variable "ifreq" not used
unit1.pas(38,14) Note: Local variable "x" not used
unit1.pas(39,3) Note: Local variable "asc" not used
unit1.pas(39,9) Note: Local variable "j" not used
unit1.pas(39,11) Note: Local variable "timsec" not used
unit1.pas(40,3) Note: Local variable "morech" not used
unit1.pas(40,10) Note: Local variable "opened" not used