Ayuda con Error Access Violation

[Salnhack]

Buenas

Necesito que me ayuden con lo siguiente

Al Hacer click en un boton el cual me debe generar una consulta

Código Delphi [-]
procedure TForm19.suiButton1Click(Sender: TObject);
begin
   with DataModule3.Query1 do
     begin
       Close;
       SQL.Clear;
       SQL.Add('UPDATE procesamiento SET inicioproceso=1');
       ExecSQL;
       Close;
       SQL.Clear;
       SQL.Add('Insert Into mesactivo(mesactivo)');
       Sql.Add('values (:pmes)');
       ParamByName('pmes').AsInteger:=suiDBGrid1.Columns.Items[3].Field.AsInteger;
       ExecSQL;
     end;
end;

me sale un error de Access Violation y no se porque y me marca la siguiente linea del codigo

Código Delphi [-]
ParamByName('pmes').AsInteger:=suiDBGrid1.Columns.Items[3].Field.AsInteger;

agradeceria cualquier ayuda

Gracias