Не компилирует...
Скопировал код и вставил....
Бум разбираться
Компоновка
[Совет] Unit1.pas(202): Value assigned to 'HM' never used
[Ошибка] Unit1.pas(283): There is no overloaded version of 'StrToFloat' that can be called with these arguments
[Ошибка] Unit1.pas(290): Undeclared identifier: 'FloatToStrDef'
[Ошибка] Unit1.pas(305): ';' expected but 'END' found
[Предупреждение] Unit1.pas(306): Text after final 'END.' - ignored by compiler
[Ошибка] Unit1.pas(93): Unsatisfied forward or external declaration: 'TForm1.Button7Click'
[Ошибка] Unit1.pas(94): Unsatisfied forward or external declaration: 'TForm1.Edit9KeyPress'
[Ошибка] Unit1.pas(95): Unsatisfied forward or external declaration: 'TForm1.N20Click'
[Ошибка] Unit1.pas(96): Unsatisfied forward or external declaration: 'TForm1.SpeedButton1Click'
[Фатальная ошибка] Project1.dpr(7): Could not compile used unit '..\5\Unit1.pas'