Yuriy, на вот, попробуй доделанный модуль от tsdima под размер картинки 140х100

Build start...
Generated code
Create project...
Command line: dcc32.exe "C:\Program Files\HiAsm\Elements\delphi\code\Project1.dpr" "-U C:\Program Files\HiAsm\." -Q
Borland Delphi Version 12.0 Copyright (c) 1983,98 Inprise Corporation

KOLComObj.pas(1614) Hint: Value assigned to 'Status' never used

KOLComObj.pas(2337) Hint: Value assigned to 'SaveInitProc' never used

C:\Program Files\HiAsm\Elements\delphi\code\hiInlineCode_B82140.pas(94) Error: Undeclared identifier: 'GetStateInfo'

C:\Program Files\HiAsm\Elements\delphi\code\hiInlineCode_B82140.pas(126) Error: Expression expected but end of file found

C:\Program Files\HiAsm\Elements\delphi\code\Project1.dpr(12) Fatal: Could not compile used unit 'hiInlineCode_B82140.pas'
Compress code
End build