FreePascal.ru

Это работает.

unit shortcut;

interface

uses windows;

procedure CreateLink(const FileName, LinkSelfFileName: pchar);
procedure CreateLinkEx(const FileName, RunParams, WorkDir, LinkSelfFileName,
Description, IconFile: pchar; IconNumber, WndParams: cardinal);

implementation ...

Да, это протез, я не спорю. Годится для переходного (на юникоды ) периода.
Хотя я не думаю, что все кинутся переводить данные в БД в юникод, тем более , что это не во всех случаях возможно.
Поэтому неплохо ввести для компонент, работающих с БД, свойства TranslateTo и TranslateFrom. Или Charset ...

В лазарусе 0.9.26 при подключении к firebird 1.5 в компоненте IBConnection устанавливаю свойство CharSet = WIN1251
Для правильного отображения кириллицы в гриде (DBGrid-DataSource-TSQLQuery-IBConnection) достаточно
в свойство грида onDrawColumnCell добавить

procedure TForm1.DBGrid1DrawColumnCell ...