[segas]

Здравствуйте!
подскажите пожалуйста как быть при выполнении следующего запроса

Код:

begin
Label4.Caption:=Table1.FieldByName('ID_POL').AsString;
DM.SmenaPas.Close;
DM.SmenaPas.SQL.Clear;
DM.SmenaPas.SQL.Add('UPDATE AYTENTIFIKACIA SET PAROL ='+#39+Edit1.Text+#39+' WHERE ID_POL ='+#39+Label4.Caption+#39);
DM.SmenaPas.Active:=True;
DM.SmenaPas.Open;
end;

выдается ошибка.
error.jpg
Как исправить?