Quem souber sobre TBlobStream, me ajude por favor ?

Tenho esse codigo abaixo...o q teria de errado nele?
Qdo escolho um item da lista, dá o seguinte erro: General SQL Error.

procedure TfrmPrincipal.ListView1SelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean);
var
cd_dep, cd_sec, id : String;
bs : TBlobStream;
begin
if ListView1.Selected = nil then exit;
cd_dep := Vetor[ListView1.Selected.Index]._cd_dep;
cd_sec := Vetor[ListView1.Selected.Index]._cd_sec;
id := Vetor[ListView1.Selected.Index]._id;

bs := Nil;
try
with Table1 do begin
Open;
filter := ´Id_mensagem = ´ + id ;
filtered := true;
if (Not is Empty) then
begin
bs := TBlobStream.Create(Table1Memo, bmRead); [b:1010f5846a]{dá erro aqui}[/b:1010f5846a]
RichEdit1.PlainText := false;
RichEdit1.Lines.LoadFromStream(bs);
end;
end;
finally
bs.Free;
Table1.Close;
end;
end;