TListbox X TMemo

Boa tarde,

Tenho uma situação que eu cadastro no TListbot uma data.

Automáticamente é criado um registr no BD, sem a descrição...

Esta data está ligada com o Memo, quando selecionar uma data no TListbox aparece a descrição no MEMO a direita.

O Problema é na hora do UPDATE, ele está fazendo o update igual no campo DESCRICAO (para todas as datas)...

 

for i:= 0 to lbdatas.Count-1 do	begin Close; SQL.Clear; SQL.Add('update EVOLUCAO set ' + 'IDPAC = :IDPAC, ' + 'DATA = :DATA, ' + 'DESCRICAO = :DESCRICAO	' + 'where DATA = :DATA and IDPAC = :IDPAC'); ParamByName('DATA').AsDate := StrToDate(lbdatas.Items[i]); ParamByName('DESCRICAO').AsBlob:= mevolucao.Text; ParamByName('IDPAC').AsInteger:= idpac; ExecSQL();	end; end;