Erro no Ib. Blob X String

Eu tenho uma rotina de senha em ambiente InterBase 6. Essa rotina não é minha, eu a peguei aí no clube e tenho usada-a em meus programas. com algumas alterações. Elas originalmente, foram escrita para Paradox. Na tabela, há um campo em PDOX(memo) e em IB eu declarei-o do tipo Blob. Acontece que dá sempre esse erro: [color=red:89cebd91bf]Feature is not supported
Blob and Array data types are not supported for compare operation[/color:89cebd91bf]

Este campo será lido em uma variável do tipo string. Que tipo de variável devo declarar para carregar tipo blob?
Eis a rotinoa abaixo:

[color=blue:89cebd91bf]procedure TfrmCadUsu.gravar;
var rots,msg,a: string;
i: integer;
log: TextFile;
begin
try
for i := 0 to tv.Items.Count - 1 do begin
if i > 0 then begin
if tv.Items[i].HasChildren then
rots := rots + ´|´
else
rots := rots + ´||´;
rots := rots + tv.Items[i].Text
end
end;
Dm.UsuarioUsuario.Value := edUsuario.Text;
Dm.UsuarioSenha.Value := Encripta(edUsuario.Text,StrToInt(edSenha.Text));
Dm.UsuarioRotinas.Value := rots;//Aqui o erro do Blob
Dm.Usuario.Post;
Dm.Trans_1.CommitRetaining;
btGravar.Enabled := false;
a := ´logUsu.dat´;
if usuario <> edUsuario.Text then
msg := DateToStr(Now) + ´ - ´ + usuario +
´ gravou senha para ´ +
edUsuario.Text + ´ às ´ +
TimeToStr(Now)
else
msg := DateToStr(Now) + ´ - ´ + usuario +
´ alterou sua senha às ´ +
TimeToStr(Now);
AssignFile(log,a);
if FileExists(a) then
Append(log)
else
Rewrite(log);
Writeln(log,msg);
CloseFile(log);
FileSetAttr(a, faSysFile + faHidden)
except
ShowMessage(´Erro!´)
end;
end[/color:89cebd91bf];