FreePascal.ru

Использую штатный компонент OpenGL.
Споткнулся на самом примитивном.
Есть процедура

procedure RedGreenBlue(Lite: TColor; out Red, Green, Blue: Byte);
begin
Red := byte(Lite);
Green := byte(Lite shr 8);
Blue := byte(Lite shr 16);
end;
Вызываю ее для преобразования стандартного TColor цвета ...

Всплыла проблемка: читаю из таблицы Excel данные, закрываю приложение. Открываю приложение Word, пытаюсь открыть файл, вываливаюсь в окно ассемблера на строку
774E8E3D eb07 jmp 0x774e8e46 <ntdll!RtlIsNonEmptyDirectoryReparsePointAllowed+118>
Текст проги:
Od &#58;= OpenDialog1;
Od&#46;InitialDir ...

С колонтитулами разобрался:
Word.ActiveDocument.Sections.Item(1).Headers.Item(1).range.Text:=widestring(Utf8ToAnsi('Верхний колонтитул'));
Word.ActiveDocument.Sections.Item(1).Footers.Item(1).Range.Text := widestring(Utf8ToAnsi('Нижний колонтитул'));
Ключевые слова Headers и Footers

Строю в Ворде многостраничную спецификацию. Для полного счастья никак не перепрыгнуть через три задачи:
1. Нужно в нижнем колонтитуле создать одну таблицу на первом листе и другую для всех остальных. Как работать с колонтитулами в Лазарусе?
2. Как задать воспроизведение строки с заголовками таблицы ...