Для ASE.
1. Выбираешь строки по хп (пример SQL для BDE)
select text
from syscomments
where id = object_id(:objname)
order by number, colid2, colid
2. Перебирашь полученные строки, выдергиваешь значение поля text, склеиваешь их в одну строку, при этом символ '\n' заменяешь на "\r\n".

Например, (можно и красивее сделать, это сам принцип):
AnsiString Buff = "";
for(q->First();!q->Eof;q->Next())
{
Buff += q->FieldByName("text")->AsString;
}
for(int i = 1;i < Buff.Length() + 1; i++)
{
if(Buff == '\n') b += "\r\n";
else b += Buff;
}