Help !!!!

a linha que apresenta o problem está em negrito...
\
procedure Tfrmconsulta.rbliberadoClick(Sender: TObject);
var
recebecodigo, datafinal : string;
begin
if query.RecordCount = 0 then
Begin
rbliberado.Checked:=false;
exit;
end;
recebecodigo := querycodigo.Text;
If Not (query.RecordCount = 0) then
Begin
query.Close;
query.SQL.Clear;
query.SQL.Add(´update problemas set status = ´ + ´´´´ + ´L´ + ´´´´ + ´ ´ + ´where status =´ + ´´´´ + ´P´ + ´´´´ + ´and codigo =´ + ´´´´ + recebecodigo + ´´´´ );
query.ExecSQL;
datafinal:=datetostr(now);
query.SQL.Clear;
[b:4bbdcc8924]query.SQL.Add(´update problemas set dtfinal = ´ + ´´´´ + datafinal + ´´´´ + ´ ´ + ´where codigo =´ + ´´´´ + recebecodigo + ´´´´ );
[/b:4bbdcc8924]query.ExecSQL;
query.sql.Clear;
query.SQL.Add(´select * from problemas where status =´ + ´´´´ + ´P´ + ´´´´ );
query.Open;
query.Refresh;
query.Open;
rbliberado.Checked:=false;
end;
end;

[]´s

Oscar Luiz