Fejl i Query

Jeg har

with Query1 do
begin
        with SQL do
        begin
          Clear;
          Add('UPDATE userdb.db SET Status = 0, IP = :ip WHERE UserID = :userid');
        end;
        ParamByName('ip').Value := Socket.RemoteAddress;
        ParamByName('userid').Value := copy(Param,0,7);
        ExecSQL;
end;

Men jeg får en "Type mismatch in expression" der hvor der står ExecSQL... WHY?