[sorockinalex]

Да код нет смысла смотреть...
Единственное, что могло ещё повлиять хоть как-то, связанное со стринггридом:

Код:

  with EventsStringGrid do
  begin
    //Ключевой столбец
    Cells[0, 0] := 'eventid';
    ColWidths[0] := 0;
    //Событие (параметр)
    Cells[1, 0] := 'Событие';
    ColWidths[1] := 500;
    //Единица измерения
    Cells[2, 0] := 'Ед.Изм.';
    ColWidths[2] := -1;
  end;

Начал менять значения...

Пришёл к выводу и решению:
Такое происходит только если единственный столбец в видимом поле отображается. Ширину столбца подгонял до границ стрингрид, чтобы при выделенной единственной строчке она была во всю ширину...
Решение - первый столбец делать шириной не -1, а 0