Instructions

end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Stop_K8000;
end;