[Страдалецъ]

Уж очень круто вы урезали проект. Пришлось большую часть выкинуть.
Имеется какой-то баг в тексте вот в этой процедурки:

Код:

procedure TMainF.ScanClick(Sender: TObject);
var
  j,i: integer;
begin
  for i := 0 to Length(ScanProperty) - 1 do
    for j := ScanProperty[i].begrange to ScanProperty[i].endrange do begin
      sens := TSensor.Create(IntToStr(j), port);
      buf := CreateIdenifier(ScanProperty[i], j);
      if sens.ExchangeData($42, 'TypeE', buf, bufpack) = SR_Success_Exchange then
    end;
end;

После удаления содержимого и отката обратно прога все-же запустилась, т.е. видимо в текст закрался какой-то неотображаемый символ который приводил к такому эффекту.