Ошибка при запуски программы делфи

Выходит табличка со следующим текстом:

Project Project1.exe raised exception class EInvalidOperation with message 'Cannot focus a disabled or invisible vindows'. Process stopped. Use Step or Run to continue.

const
 R: array[1..13] of string[2] =
 ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
 A: array[1..13] of Integer =
 (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000);

var
  Form1: TForm1;
  mode:integer;
  Radix1,Radix2:integer;
implementation

{$R *.dfm}

//===================== Вспомогательные функции ============================

function CharToInt(Ch:char):integer;
begin 
  case Ch of
    '0'..'9': Result:= Ord(Ch) - Ord('0');
    'A'..'F': Result:= Ord(Ch) - Ord('A') + 10;
     else Result:= 0;
  end;
end;

function IntToChar(N:integer):char;
begin 
  case N of
    0..9   : Result:= char(Ord('0') + N);
    10..15 : Result:= char(Ord('A') + N - 10);
    else Result:= '0';
  end;
end;

//===================== Основные функции ================================

function StringToInt(const S:string; Radix:integer):integer;
var i:integer; 
begin
  Result:= 0;
  for i:= 1 to Length(S) do
    Result:= Result*Radix + CharToInt(S[i]);
end;

function IntToString(N,Radix:integer):string;
begin 
  while N > 0 do begin
    Result:= IntToChar(N mod Radix) + Result;
    N:= N div Radix;
  end;
end;

function RomanToArabic(S: string): Integer; 
var i, p: Integer;
begin
 Result := 0;
 i := 13;
 p := 1; 
while p <= Length(S) do 
begin
while Copy(S, p, Length(R[i])) <> R[i] do
 begin
 Dec(i); 
 if i = 0 then
 Exit;
 end;
Result := Result + A[i];
p := p + Length(R[i]);
 end;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='' then
StaticText2.Caption:=''
 else
StaticText2.Caption:='По русски -> '+IntToStr(RomanToArabic(Edit1.Text));
   RadioGroup2.Enabled:= Length(StaticText2.Caption) > 0;
  Edit2.Clear;
  RadioGroup2.ItemIndex:= -1;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Key:=UpCase(Key);
  case Radix1 of
    2 : case Key of '0'..'1',#8,#13 : ; else
    begin if (Mode=0) and (not (Key in ['0'..'9','I','M','D','C','L','X','V',#8])) then
 Key:=#0;
 if (Mode=1) and (not (Key in ['0'..'9',#8])) then
 Key:=#0;
 if (Mode=2) and (not (Key in ['I','M','D','C','L','X','V',#8])) then
 Key:=#0; end; end;
    8 : case Key of '0'..'7',#8,#13 : ; else begin if (Mode=0) and (not (Key in ['0'..'9','I','M','D','C','L','X','V',#8])) then
 Key:=#0;
 if (Mode=1) and (not (Key in ['0'..'9',#8])) then
 Key:=#0;
 if (Mode=2) and (not (Key in ['I','M','D','C','L','X','V',#8])) then
 Key:=#0; end; end;
    10: case Key of '0'..'9',#8,#13 : ; else begin if (Mode=0) and (not (Key in ['0'..'9','I','M','D','C','L','X','V',#8])) then
 Key:=#0;
 if (Mode=1) and (not (Key in ['0'..'9',#8])) then
 Key:=#0;
 if (Mode=2) and (not (Key in ['I','M','D','C','L','X','V',#8])) then
 Key:=#0; end;  end;
  end; 
end;

procedure TForm1.RadioGroup2Click(Sender: TObject);
var N:integer;
begin
  N:= StringToInt(StaticText2.Caption,Radix1);
  case RadioGroup2.ItemIndex of
    0: Radix2:= 2;
    1: Radix2:= 8;
    2: Radix2:= 10;
    3: Radix2:= 16;
  end;
  Edit2.Text:= IntTOString(N,Radix2);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Radix1:=10;
  RadioGroup2.ItemIndex:= -1;
  Edit2.Clear; StaticText2.SetFocus ;
end;

end.

Писал на Delphi ХЕ2. Написано некоторое количество софта, стоит на нескольких комапх с разными ОС, и тебе ХР и 7-ка и Windows Server 2003; 32 и 64 разрядных. Все нормально. Но вот однажды понадобилось одному из руководителей поставить мой софт на компьютер, до этого не пользовался моим софтом. И, началось… Если сказать коротко никакие мои программы не запускаются на его компе. Даже тестовые, самые простые.

О программе:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    txt1: TStaticText;
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.btn1Click(Sender: TObject);
var s:TStringList;i:Integer;
begin
  s:=TStringList.Create;

  for i := 0 to 9 do begin
  s.Append('test-' + IntToStr(i + 100000) + ' ');
  end;

  mmo1.Clear;
  mmo1.Lines.Assign (s);

  s.Free;
end;
end.

Все просто, но даже такая не запускается. Вот что происходит,- в диспетчере задач появляются 3 процесса (запускал один раз) с размеров около 100Кб (она весит >2Мб); процессы нельзя вырубить; сам запустивший(из которого я их запускаю) процесс (проводник, Total Comander) вешается и умирает через некоторое время.

Тот же результат при запуске с любого жесткого диска компьютера.
Тоже с 32 и 64 битной версией тестовой ПО.
Антивируса не обнаружено.
При этом на компе том полно работающего софта, всякие ексели , 1С-ки, циткриксы и прочее.

Самое интересное, компилировал эту тестовую софтину и с ХЕ2, и с ХЕ7, все тоже

проверил файлы на virustotal.com, вирусов нет.
вот ссылки:
TEST_32

TEST_64

Там нажмите «Сведения о файле» и «Доп. сведения»

Собственно вопрос, где можно глянуть логи операционной системы, в которых была бы видна причина такого поведения?

Допустим, сделана опечатка и неправильно написано какое-нибудь ключевое слово. В этом случае при попытке запуска программы внизу появляется окно, в котором отображены сообщения об ошибках. При этом программа не запустится. Благодаря подсказке такую ошибку легко найти и исправить.

Частой ошибкой начинающих является пропуск конструкции begin – end в цикле. При
этом имеется в виду, что в цикле должны выполняться, например, обе команды, но на самом-то деле в цикле, конечно, будет выполняться только первая, а вторая выполнится только один раз – потом, когда программа выйдет из цикла. При попытке запуска появляется сообщение. Но это не ошибка, а предупреждение. В нем обращается внимание на то, что параметр цикла после выполнения цикла может быть неопределенным (он присутствует во второй команде).

Однако, несмотря на предупреждение, программа может запуститься. Если вводятся
дкакие-либо данные, то появляется сообщение об исключительной ситуации – exception. При этом программа приостанавливается, переходя из режима исполнения в режим отладки. Чтобы перейти к обычному редактированию кода, лучше остановить программу. Это можно сделать с помощью команды Program Reset. Затем можно поправить ошибку и вновь запустить программу.

В большие программы всегда закрадываются ошибки. Их надо быстро и квалифицированно найти и исправить.

Механизм исключительных ситуаций (exception)
одно из больших достоинств Delphi. С их помощью вы можете контролировать
возникновение ошибок и создавать в результате устойчивые к ошибкам программы.

По мере знакомства с языком и средой программист проходит несколько этапов. На
первом этапе он, по незнанию, путает типы, забывает ставить знаки препинания (например, точку с запятой в конце строки), некорректно использует операторы и т.п. В результате написанный им код в принципе невозможно исполнить. И это хорошо – 15 поскольку допущенные им ошибки оказываются автоматически выявленными на этапе компиляции, более того, часто среда программирования сама подсказывает, какая ошибка допущена, и, что важно, указывает строку, которую нужно поправить. По мере изучения языка и борьбы с синтаксическими ошибками программист плавно переходит к следующему этапу. Теперь он уже не делает таких простейших ошибок, но, поскольку сложность его программ возрастает, возрастает и вероятность совершения им ошибки, при которой программа все равно запустится. Поскольку, с точки зрения компилятора, явной ошибки нет, а некоторые странности кода, по-видимому, являются замыслом программиста. Однако компилятор все-таки сообщает об этих странностях с помощью предупреждений (Warning).

Советуем всегда обращать на них внимание, проверять при их появлении, нет ли ошибки, и вообще стараться писать код так, чтобы не было предупреждений.

Опасность таких скрытых ошибок состоит:

1) в том, что они таятся в той части кода, которую программист написал и уверен, что
она правильная (программа запустилась), а значит, и не очень внимательно будет
искать ошибку;

2) в том, что проявляется эта ошибка совсем в другом месте кода – не в том, в котором
допущена. А это приводит к долгим поискам ее по всей программе.

При возникновении исключительной ситуации можно проигнорировать ее и запустить
исполнение программы дальше, нажав F9. В этом случае программа выдает сообщение об ошибке. Необходимо найти ошибку – понять, в какой строке и почему происходит сбой. Для этого можно воспользоваться трассировкой. Для того чтобы определить первую строчку, начиная с которой будет проводиться трассировка, нужно поставить Breakpoint – точку останова.

Когда исполняемый код доходит до точки останова, исполнение программы
приостанавливается, и надо перейти в режим отладки. В режиме отладки можно исполнять последовательно программу по шагам, контролировать и изменять значения переменных и т.п. Этот режим служит для обнаружения и ликвидации ошибок. В этом случае появляется возможность просмотреть или изменить текущие значения переменных, однако изменение кода во время отладки невозможно. Измененный текст заработает только после перезапуска программы.

Чтобы выполнить текущую строку, на которой стоит курсор отладки, нажмите F7 или
F8. Строка выполнилась, и курсор сместился. Если необходимо перейти к следующей строке, то можно нажать F8, если нужно зайти в какую-либо функцию, то нажимают клавишу F7 и продолжают трассировку.

Для того чтобы в ходе отладки узнать значение той или иной переменной, нужно просто подвести к ней курсор. Появится hint со значением этой переменной. Это, однако, работает не со всеми переменными, а только с доступными в данный момент. Если нужно постоянно контролировать значение переменной, то еще проще добавить ее в список Watch.

Для более основательного слежения за значениями можете воспользоваться Списком Наблюдения (Watch List, Ctrl+F5).

Таким образом, при программировании среда Delphi может находиться в различных
режимах:

• Режим редактирования – режим, в котором редактируется код проекта,
модифицируется форма, добавляя на нее компоненты и настраивая их свойства. Это
основной режим.

• Режим исполнения программы – режим, в который среда переходит, как только
нажата клавиша F9 и был построен exe-файл. Фактически, в этом режиме происходиткак раз исполнение получившегося exe-файла проекта. Программа исполняется так,
как если бы ее вызвали не из Delphi, а просто из Windows.

• Режим отладки – в этот режим можно перейти из режима исполнения программы.

При этом программа будет приостановлена (но не остановлена совсем).

Чтобы продолжить трассировку (последовательный переход от команды к команде),
можете воспользоваться клавишами:

• F9 (Run) – продолжить программу, не трассируя ее.

• F8 (Step over) – выполняется текущая строка кода, и переходят к следующей строке.

• F7 (Trace Into) – то же, что и F8, с тем отличием, что если в текущей строчке
содержится вызов какой-либо функции или процедуры, то попадают внутрь этой
процедуры и трассируют ее до конца, затем из нее возвращаетс и переходят к
следующей строке (на которую перешли бы сразу, если бы нажали F8).

• F4 (Run to Cursor) – переход в режим исполнения программы до тех пор, пока не
должна будет выполнена строка, на которой стоит текстовый курсор (аналогично
тому, как если бы была установлена точка останова)

• Shift+F8 (Run Until Return) – процедура выполняется до конца.

• Ctrl+F2 (Program Reset) – остановка трассировки и переход в режим редактирования
кода. (Иногда целесообразнее, если это не грозит ошибками, продолжить исполнение
программы (F9) и выйти из нее нормальным образом, закрыв главную форму).

При работе в Delphi сообщение об ошибке фактически появляется дважды: сначала
выводится окно об исключительной ситуации и программа приостанавливается, а потом,
если нажать F9 (F8, F7 и т.п.), – возникает стандартное сообщение об ошибке Windows.

Итак:

1. Произошла ошибка.

2. Программа приостанавливается.

3. Выводится сообщение об exception. Это сообщение для программиста. Среда Delphi
сообщает, что программа не в состоянии выполнить какую-то свою команду.
Программист не предусмотрел возможность исключительной ситуации. Среда Delphi
приостанавливает программу, чтобы программист разобрался, где и в чем ошибка.
Отключить приостановку (2)–(3) можно, сняв флажок Menu => Tools => Debugger
Options => Language Exceptions => Stop on Delphi Exceptions.

4. Нажатие клавиши F9 (F8, F7 или др.).

5. Выводится сообщение об ошибке. Это сообщение для пользователя программы
(ситуация запуска приложения не из Delphi, а через exe-файл из Windows, т.е. не
существовует пунктов 2, 3, 4).

6. Программа продолжается (при этом она не сумела выполнить ту часть, в которой
произошла ошибка, и значит, если эта часть важная, продолжение может
сопровождаться дальнейшими ошибками).

Механизм обработки исключительных ситуаций заключается в том, что если
произошла ошибка (1) и не надо выводить (5), предпринимаются действия, чтобы (6) исполнялось корректно.

Для этого «опасная» команда (или целый блок) помещается внутрь конструкции try..except..end или try..finally..end.

Блок try..finally..end используется аналогично try..except.., но с тем отличием, что блок
команд между finally и end выполняется в любом случае, вне зависимости от того, было исключение между try и finally или нет.

Отладка программы: Классификация ошибок