Что же вас заставляет в современном мире верстать инлайн-блоками?
Но ведь есть же простой, удобный, логичный gap в гридах и флексах!
var Role: Integer;
Role := GetAppAccessRole(ApplicationName);
if Role <= 0 then raise Exception.Create('У вас недостаточно прав для выполнения операции');
var Query: TZQuery;
Query := TZQuery.Create;
Query.Connection := Connection;
var DC: TZConnection;
DC := TZConnection.Create(Connection, 'BLOB.FDB');
var BlobQuery: TZQuery;
BlobQuery := TZQuery.Create;
BlobQuery.Connection := DC;